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CUVINT ÎNAINTE 


În general, primul limbaj de programare care se 
învaţă este limbăjul “FORTRAN. Ca Giice liiiibâj de 
Programare, și acesta, necesită, pentru o însușire temei- 
nică, un lucru intens pe calculator, alcătuirea și rularea 
unui număr cât mai mare de programe. Culegerea de 
faţă vine în ajutorul tuturor celor care vor să cunoască 
acest limbaj, punîndu-le la dispoziție modele și tehnici 
de alcătuire a programelor. Noţiunile matematice folo- 
site în lucrarea de față nu depășesc în general cunoștin- 
țele acumulate în cursul liceului. În ultima parte a 
prezentei culegeri apar și noțiuni de algebră superi- 
oară, unele chprinse în programa anului IV de liceu, 
iar altele în programa anului 1 a oricărei facultăți cu 
profil tehnic ; ultimele sînt prezentate pe scurt pentru a 
facilita înţelegerea programului celor care nu au-0 
pregătire matematică superioară. Problemele de alge-. 
bră prezente în lucrare vin să demonstreze modul în 
care poate fi folosit calculatorul și în probleme CONSI- 
derate, pînă de curînd, ca fiind de natură pur teore- 
tică. 

Sînt prezentate aproximativ 50 de probleme și pentru 
fiecare dintre ele este făcută mai întîi o analiză, a modu- 
lui în care poate fi întocmit un algoritm care să o poată 
rezolva; apoi se descrie schema logică a algoritmului 
respectiv, precum și programul efectiv, scris în lim- 
bajul FORTRAN IV. La multe dintre probleme 
sînt propuși mai mulți algoritmi, dar este dezvol- 
tat numai unul, restul fiind propuși ca exerciții 
cititorului. Avînd în vedere scopul didactic al cărții, 


programele nu apar totdeauna sub cea mai bună formă; 
pentru a obține programul în forma optimă, cititorul 
trebuie să rezolve exerciţiile propuse la sfîrşitul fiecărei 
probleme, efectuînd în program modificările corespun- 
zătoare. Exerciţiile au ca scop principal optimizarea, 
programului din punctul de vedere al reducerii timpului 
de lucru și al memoriei cu care se lucrează, precum și 
reducerea numărului de instrucțiuni din program, 
atîta timp cât aceasta nu mărește timpul necesar execu- 
ției sau cantitatea de memorie necesară. 

Ținîndu-se seama de modurile multiple în care poate 
fi stabilită ordinea. de: prezentare a elementelor limba- 
jului FORTRAN și faptul că de multe ori cursurile de 
prezentare a limbajului au un caracter intensiv, pro- 
blemele nu urmăresc o anumită ordine de prezentare 
a instrucțiunilor limbajului, deoarece se consideră că 
cititorul este informat cu toate instrucțiunile limba- 
Jului. Succesiunea problemelor corespunde dificultă- 
ților de realizare a programelor respective. 

Menţionăm că programele cuprinse în lucrarea de 
față au. fost rulate pe calculatorul IBM _ 369/39 al 
Centrului. de “Calcul al Universității . „Buciitești. De 
ăceeă am folosit și unele instrucțiuni permise de 
compilatorul pentru FORTRAN IV al firmei IBM, 
instrucțiuni care nu sînt cuprinse în limbajul FOR- 
TRAN 1V standard. 


AUTORII 


INTRODUCERE 


1) CE ESTE INFORMATICA?! 


Cuvîntul INFORMATICĂ este întîlnit din ce în ce mai 
des în viața de toate zilele. De la început, trebuie să precizăm 
că informatica este o știință cu un larg domeniu de aplica- 
bilitate și a apărut ca o necesitate de a face „față“ exploziei 
informaționale din lumea contemporană ca și unei vieți 
sociale tot mai complexe (Mic dicționar filozofic, Ed. a II-a, 
Ed. Politică, Buc., 1973). Metodele și tehnicile folosite de 
această știință își găsesc aplicarea în aproape toate științele, 
în economie, în conducerea întreprinderilor etc. 

Într-o accepție, mai largă, informatica ar cuprinde toate 
activităţile de culegeră și prelucrare a „datelor“ („informa- 
țiilor”). Dacă arfi să luăm numai ăceastă formulare drept 
definiție, ar însemna să ne gîndim că toate activitățile pe care 
le depune omul au caracter „informatic“, deoarece orice 
acțiune umană este o urmare a unui raţionament ce a, fost 
elaborat pe baza „informaţiilor“ primite din mediul încon- 
jurător sau o consecință a reflexelor condiționate și necon- 
diționate, formate, la rîndul lor, tot pe. baza „informației“ 
primite cu ajutorul simțurilor de la mediul înconjurător. 

În sens restrîns, informatica este știinta care se ocupă cu 
studiul prelucrării inforinaliei cu ajutorul sistemelor automate 
de calcul. („Mic dicţishar” encitlopedic“, Editura Enciclope- 
dică, 1972). Definiţia scoate în relief faptul că instrumentul 
principal de lucru în știința informaticii este. calculatorul. 
Acesta poate îi folosit atit în prelucrări de rutină a datelor 
(înmagazinarea, sortarea sau regăsirea datelor, de exemplu 


1 Vezi şi articolele: O. Bâscă, „Informatica, în G.M.-B, 1973, 
pag. 129 și 193. 


în lucrări cu caracter contabil sau statistic) cât și în scopuri 
științifice (metode numerice, verificări de ipoteze etc.). 
În ultimul timp, calculatoarele sînt folosite în cele mai 
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itectura, “muzica pictura, „procesul. JE. jistruire. a. elevilor 
sau studenţilor, traducereă dintr-o limbă în alta. etc. Zborul 
omului î în COSTnOS - ar fi fost imposibil fără existența calcula: 
tarelor Care e calculează,. cu o extfem de mare precizie și în 
foarte scurt timp, traiectoria, de zbor, corectările acesteia, 
precum și decizia care trebuie luată în anume situaţii spe- 
ciale. Faptul că bazele informaticii au fost puse cu numai un 
sfert de veac în urmă, ne face să credem că domeniul de apli- 
cabilitate a calculatoarelor se va extinde și mai mult. Cert 
este faptul că în momentul de față calculatorul a devenit un 
instrument indispensabil omului în întreaga lui activitate. 

Cînd spunem informatică, ne gîndim în același timp la 
matematică, cele două științe fiind legate în mod indisolubil. 
Oricărei probleme căreia i se caută rezolvarea cu ajutorul 
calculatorului trebuie să i se găsească mai întîi un model 
matematic, un așa-numit algoritm de rezolvare, care, de cele 
mai multe ori, este bazat pe rezultate din teoria „abstractă“ 
a matematicii. Necesitatea. crescîndă de a găsi modele mate- 
matice pai ie rezolvareăEor oblon „puse de tehnică 
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ar fi teoria moulțirnilor. sau Rei matematică, ala 
care păreau să nu aibă nici o aplicaţie în afara matematicii, 
s-au dovedit ca fiind fundamentale în studiul mecanismelor. 
automate și în proiectarea calculatoarelor. 

Despre legătura dintre matematică și informatică, regre- 
tatul profesor Grigore C. Moisil, cel care a dat prima promoţie 
de informaticieni din țara noastră, spunea în articolul „Infor- 
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matica mîine și poimiine“ publicat în revista „Contempo- 
ranul“: „Informatica restabilește nu numai unitatea mate- 
maticilor pure și a celor aplicate, a telinicii concrete şi a 
matematicilor abstracte, dar și cea a ştiinţelor naturii, ale 
omului și ale societății, reabilitează conceptele de abstract: 
și de formal și împacă arta cu știința, nu numai în sufletul 
omului de știință, unde erau dintotdeauna împăcate, ci şi 
in filozofarea asupra lor“. | 


2) ISTORICUL DEZVOLTĂRII MIJLOACELOR 
DE PRELUCRARE A DATELOR 


] 

Istoricul prelucrării datelor reflectă, în mare măsură, 
progresul civilizației omenești. | 

Progresele tehnice au fost imediat adaptate scopului 
prelucrării datelor. 

În decursul istoriei, omul a simţit nevoia de a efectua 
calcule care să-i permită rezolvarea problemelor cu care a 
fost confruntat, de a căuta metode pentru a le soluţiona. 
într-un timp cît mai scurt și cu cît mai puţine eforturi (min- 
tale și manuale). 





tațea_ 
și atunci omul a descoperit că pictricelâle; grăunțele și alte! 
obiecte mici „pot. fi folosite; ta fet-de bine, pentru îiirăărat. 
n Mesopotamia antică, pietricelele erau -plasate în canale 
făcute pe plăci de Iut. Acest „dispozitiv“ permitea ca, pietri- 
celele să fie deplasate dintr-o.parte în alta pentru a ușura 
perâţiile de numărare. Aceasta a constituit o formă primi- 
tivă de abac. Abâciil, Care este ii instrument de calcul, s& 
'mai folosește și azi, într-o formă sau alta, în clasele elemen- 

tare. 

În anul 1617, scoţianul John Napier a inventat logaritmii 
pentru a uşura efectuarea calculelor _niiinezice” Jaborioâse 
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care aveau ca, scop efectuarea, de adunări și înmulţiri în loc 
de înmulţiri și respectiv ridicări la putere. Napier â inventat 
de asemenea un dispozitiv pentru facilitarea calculelor, 
etifoscut sub numele de „vergelele lui Napier“. Introducerea 
logaritmilor “4 permis inventarea” riglei de calcul de către 
William. Oughtred, în anul 1621. 

Primul succes în realizarea unii dispozitiv de numărare 
l-a avut Blaise Pascal, care, în anul 1642, a construit un dis- 
pozitiv care permitea, adunarea unor lungi coloane de cifre. 
ue E la de funcționare al acestuia este cel al numărăto- 


ție it Pe această idee au fost construite, mai tîrziu, 
mașinile de calcul manual de birou. În anul 1671, matema- 
ticianul german Gottfried Leibniz a imaginat o mașină de 
calculat bazată pe principiul efectuării înmulţirilor prin 
adunări repetate, Primele mașini de adunat cu claviatură au 
fost introduse de către. matematicianul englez . Burroughs, 

îa 1885, a 

Abia în jurul anului 1920 au început să fie utilizate mași- 
nile electromecanice. Acționărea &l&ctiică a asigurat o viteză 
mai mare și O ușurință în întrebuințarea mașinilor de adunat, 
calculat și contabilizat. 


Prima încercare de a folosi cartele perforate, în scop ma- 
tematic, a fost făcută de matematicianul englez Charles 
Babbage. 


În anul 1812, Charles Babbage a început. să se ocupe. de 
crearea. unei „mâșini diferențiale“--destinate. să calculeze și 
să tipărească tabele matematice. „După 10 ani, tot et, â con- 
ceput o „mașină analitică“, _ maşină care cuprindea un bloc 
perforaţii pe târtele, un bloc aritmetic în care se efectiiâu 
calcule matematice și un bloc de comandă pentru dirijarea 
operațiunilor. Proiectul acestei mașini era însă mult prea 
îndrăzneț, pentru stadiul de dezvoltare al tehnicii din acel 
timp, şi nu a putut fi realizat. 
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În anul 1887, Hollerith a construit prima, maşină de tabu- 
'lat ce se baza pe cartele perlorate, mâșină pe care â folosit-o 
la recensămintul populației Statelor. Unite ale „Americii din 
anul 1890. 

Profesorul Howard Aiken, de la Universitatea Harvard, 
în colaborare cu firmă IBM, 4 constitiit între anii 1939— 1944 


O mașină autoriiată._ de calculat ” cu secveiţă controlată, cu- 
noscută sub numele de MARK [. Eă fotostă rele; iar comanda 
se realiza prin. intermediul 1 unei, benzi. de hîrtie erforată. 
Bali Tele: 

phone Laboratories a proiectat mai multe. mașini de calcul 
cu relee. Deoarece acestea erau dispozitive electromecanice 
care foloseau relee electrice sau roți numărătoare, eficaci- 
tatea lor era limitată datorită vitezei reduse de calcul și 
dificultăților inerente funcționării mecanice. Apariția tubu- 
rilor electronice a permis învingerea acestor dificultăți. 

Prima mașină în care s-au întrebuințat tuburile electro- 
nice pentru “efectuarea calculelor a fost caiculatorul ENIAC 
(mașină de calculat și integrat numerică. rică electronică). reali- 
zată între 1942 şi 1946 la_ Universitatea din Pennsylvania. 
Calculatorul cântărea aproape. 30 de tone, conținea peste 
18 000 tuburi electronice şi r i necesita, peste 160 m2 de supra- 
față pentru. instalarea lui. 

În acest calculator, viteza de calcul era de 1 000 de ori 
mai mare decîț cea a calculatoarelor cu relee. 

Calculatorul EDSAC (mașină de calculat automată 
electronică cu memorie cu întiiziere) a fost” primul care 
memora instrucțiunile de prelucrare .a datelor, construit la 
Universitaţeă Caibridge. din Anglia, pus în funcţiune în 
mai 1949, Cam: în același timp a-apărut calculatorul EDVAC 
(mașină de calculat automată discretă electronică) Tă” Tri: 
versitatea din Pennsylvania, avînd un sistem de comandă 
flexibil, un nou tip de înmagazinare a datelor și o viteză 
mare de calcul. Pe o concepție asemănătoare, calculatorul 
SEAC a fost construit în aceeași perioadă, la Biroul de Stan- 
darde din Washington, pentru aplicaţii guvernamentale. 


Sa. 


= = mo re am e . 


magnetică, în funcție de dispozitive de intrare și de ieșire, 
și care se distingea prin viteză, siguranță în funcționare, 
capacitate de memorare și posibilitatea de a manipula la 
fel de bine atît numere cît și material descriptiv. 


Calculatoarele construite cu tuburi electronice. poartă 
numele de calculatoare din prima generaţie. 

Progresele tehnologice din electronică şi fizica corpului 
solid au avut drept rezultat apariția, la mijlocul celui de al 
șaselea deceniu, a celei de a doua generăţii de calculătoare. 
Utilizarea” tuburilor fii” calculatoarele din priiia “generaţie 
avea inconvenientul că era necesară o cantitate considera- 
bilă de energie, se punea problema condiționării aerului 
datorită căldurii emanate de tuburi și calculatorul nu putea 
funcţiona continuu. Înlocuirea tuburilor electronice cu tran- 
zistori a permis înlăturarea acestor dificultăți și în plus 
volumul calculatorului s-a redus considerabil. 

A treia generaţie de calculatoare a apărut în anul 1964 

. me CI d . . . cm ec 2 Ciara ci 

și are că pfiiicipală caracteristică introducerea circuitelor 
integrate care au redus _şi mai mult volumul aparaturii, au 
sporit siguranţă 46 funcționare și viteza de efectuare a ope: 
rațiilor. a 

Este așteptată apariția celei de a patra generații de calcu- 
Jatoare, în care_vor fi folosite razele laser. 

După cum rezultă din cele de mai sus, construcţia calcu- 
latoarelor ţine în permanență pasul cu dezvoltarea tehnicii. 
Trebuie să menționăm că, în același timp, progresele mate- 
maticii în domenii ca teoria limbajelor formale, teoria codu- 


 — ——. ar: 


zarea lor, a micșora timpul necesar efectuării calculelor, 
pentru a crea limbaje de programare cît mai apropiate de 
limbajul matematic, pentru a asigura metode mai eficiente 
de înmagazinare și regăsire a informaţiei etc. 


6 


3) DEZVOLTAREA INFORMATICII 
ÎN ŢARA NOASTRĂ 


Începuturile informaticii în ţara noastră sînt legate de 
preocupările asupra teoriei mecanismelor automate. Încă 
din anul 1950, acad. prof. Grigore C. Moisil a alcățuit şi con- 
dus un. grup_de _cercetâre îi teoria alpebrică a mecanismelor 


sa. 
arma etate mag 9. aa - 


automate, ale. cărui rezultate au situat în jurul ăiiuilui 1960 


= esa PO 


„scoăla din București” pe lociil trei în luiie: “Este fiiteresant 
e subliniat că teoria algebrică a mecanismelor automate 
folosește ca principal instrument de lucru logica matematică, 
considerată, pînă atunci, ca fiind „pur niatematică și Căre 
s-a dovedit a oferi importante utili ări practice. 
57, inginerul V. Toma a construit primul calcu- 
ător românesc, CIFAZI: Ua Thoricat importânt în dezvol- 
rea, informaticii în țară noastră l-au constituit Centrele de 
Calcul, înființate mai întîi pe lîngă Universitatea din Bucu- 
reşti, apoi la Cluj și Timişoara, care.au permis dezvoltarea 
cercetărilor în acest domeniu. 
Bazele teoretice ale programării calculatoarelor și for- 
marea de specialiști în informatică, au fost probleme care 
și-au găsit rezolvarea prin introducerea acestei noi științe 








nm . 


matematician P. Preoteasa și prof. dr. Constantin Popovici. 
Au loc cursuri de scurtă durată de inițiere în prelucrarea 
automată a datelor, precum și cursuri postuniversitare în 
acest domeniu. A apărut o bogată literatură românească 
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asupra calculatoarelor, primele lucrări apărute cu zece ani 
în urmă fiind semnate de conf. di.. Dragoș Vaida şi conf. dr. 
Paul Constantinescu. Societatea: de Matematică organizează 
conferințe și simpozioane avînd ca temă prelucrarea. auto- 
mată, a. dațelor, precum și cicluri de lecții pentru profesorii 
de liceu, 

Ji Încă din anul 1967, partidul şi guvernul au adoptat un 
prograiă 46. dotare_ă "econeomiei.. “hâţionale ci tehnică de 
palcul. Traducerea, în viață a acestui prograni s-a, concretizat 
prin ctearea unei baze de producție proprie pentru tehnica 
de calcul. Astfel, începînd cu anul 1968, la noi în ţară,.se 
fabrică mașini. electromecanice... de=caiculat, Un rezultat 
râiiiarcabil îl constituie punerea în fabricație de serie a. calcu- 
latorului românesc FELIX-256, din a treia generație. 

În „Raportul “asupra Directivelor Congresului al X-lea 
al Partidului. Comunist Român privind planul cincinal pe 
anii 1971—1975 şi liniile directoare ale dezvoltării economiei 
naționale pe perioada 1976—1980“ se arată: „Conducerea 
activităţii economice într-un stat industrial modern, organi- 
zarea Și dirij area producției în unitățile mari, dotate cu echi- 
pament tehnic de nivel superior, implică în mod obligatoriu 
folosirea tehnicilor. noi de calcul și de prelucrare a datelor, 
a mijloacelor pe care le oferă descoperirile științei contempo- 
rane în domeniile matematicii, ciberneticii, informaţicii, 
electronicii şi altor discipline. De utilizarea unor “astfel de 
mijloace este, între altele, legată elaborarea mai multor 
variante de plan, fiecare științific fundamentată, încît planul 
să fie rezultatul alegerii variantei optime. Cu ajutorul arse- 
nalului modern al tehnicii de calcul pot fi cunoscute și urmă- 
rite în mod dinamic tendințele din economie, se poate inter- 
veni operativ pentru dirijarea întregii activități în sensul 
impus de cerințele obiective ale dezvoltării generale a țării“. 

Un alt document important este „Hotărtrea C. C. al 
P.C.R. cu privire la perfecționarea, sistemului de conducere 
cu mijloace de prelucrare automată a datelor și dotarea eco- 
nomiei naționale cu tehnică de calcul în perioada 1971— 
1980“ din 21 aprilie 1972, din care cităm următoarele; 


i 
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„Pregătirea. și perfecționarea cadrelor de specialitate se 
vor asigura pentru cadrele cu studii superioare în facultăți 
de specialitate, prin cursuri postuniversitare și prin cursuri 
de scurtă durată, iar pentru cadrele cu studii medii în licee 
pentru prelucrarea automată a datelor și prin cursuri de 
scurtă durată“, 

În „Directivele Congresului al XI-lea al P.C.R.“ se 
prevede : ... „creșterea rapidă a producției de mijloace de 
automatizare, a tehnicii de calcul, -inclusiv echipamente 
periferice și de transmisie a datelor...“. 


4) GENERALITĂŢI OC | 
DESPRE CALCULATOARELE ELECTRONICE 


Schema generală a unui calculator poate îi reprezentată 
sub forma următoare: 






„Rezultate 






Unitatea centrală 


(înstrucţiuni 


Tige Bele 


Introducerea. datelor și a comenzilor (instrucțiunilor) de 
prelucrare a acestora, -precum și obținerea re: 
face prin intermediul unor dispozitive. numite, unităţi de 
zii are-vesira_Săii periferice. Numărul şi. tipul ăcestor perile= 
rice diferă. de la un calculator la altul. 

Datele: şi instrucţiunile. sînt -transmise unității centrale 
în mai multe feluri: fie apăsînd pe clape la o mașină asemă- 
îățoare cu fiiașina obișnuită de seris, numită consolă, fie 
perforînd cartele sau benzi de hîrtie de un anumit T6rTăat și 
introducîndu-le într-un dispozitiv numit czisfor de cartele, 
respectiv cztitor de bandă perforată Datele şi instrucțiunile se 
mai pot depune pe benzi magnetice (asemănătoare cu cele 





folosite la magnetofoane), pe discuri magnetice (asemănă- 
toare cu cele folosite de pick-up) sau pe cilindri magnetici, 
de pe care informația este citită cu ajutorul unor dispozitive 
speciale adecvate fiecărui tip de „suport“ de date folosit. 
De asemenea datele pot fi introduse scriindu-le cu un creion 


Nae 





ip 


lor“ 
m pot fi scoase și ele în mai mat multe moduri: pot 
fi scrise pe o coală de hîrtie la consolă sau la un alt dispozitiv 
de tipărire mai mare numit A Brimantă, pot fi obţinute pe 
cartele perforate cu ajutorul Perforâtorulmi. de. cartele, pot fi 
înmagazinate pe benzi, discuri sau tâmbururi magnetice, pot 
apare pe un ecran etc, 

Unitatea, centrală este formată din trei blocuri mari: 
oa Pearl dispozitivul aritmetic._ ȘI. dispozitivul de 


Cori Legăturite dintre ăcâste blocuri sînt înfățișate 
schemătic sub forma următoare: 
| 






LD aaa da 


Unităţi 
de iegire 


Fig. B.2e 


>maovia principală este folosită pentru a înmagazina 
datele de intrare, instrucțiunile din care este format progra- 
mul de rezolvare al problemei, precum și rezultatele interme- 
diare și finale, obținute prin prelucrarea datelor. 


Unitatea aritmetică este acea parte a unității centrale 


pre ap Pe 


care periiiite efectuarea de operații aritmetice și logice. 
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Dispozitivul de comandă este blocul care urmărește modul 
și succesiunea de prelucrare.a datelor. Acesta permite tre- 
cerea datelor de intrare de la unitatea de intrare în memoria 
principală și trecerea datelor finale din memoria principală 
la unitatea de ieșire aleasă. Odată cu datele ce trebuie pre- 
lucrate, în memoria principală este depus și programul care 
a fost alcătuit pentru prelucrarea lor; dispozitivul de co- 
mandă analizează pe rînd fiecare dintre instrucțiunile din 
care este format acest program, comandă dispozitivului 
aritmetic să efectueze operațiile aritmetice și logice care 
apar în aceste instrucțiuni și trece apoi la analiza instruc- 
țiunii următoare. | 
„__„ Instrucţiunile care formează programul depus în. memoria 
principală a calculatorului sînt scrise într-o formă. codificată, 

roprie calculatorului respectiv. (spunem că instrucțiunile sînt 
SCTIS  in-c0d Maşină.) ; scrierea unui program în cod mașină 
este foarte greoaie și cere mult timp. Un limbaj de progra- 
mare foarte apropiat de codul mașinii este /imbajul de asam=- 


ma 


rie necesare executării programului. Pentru ușurarea muncii 
programatorului au fost concepute limbaze. de programare 
umiversale; ele folosesc un simbolism foarte apropiat de cel 
matematic și un număr mult mai mic de instrucțiuni decît 
limbajul de asamblare, fiind astfel. mai ușor accesibile; în 
plus, acestea prezintă avantajul de a nu depinde de calcula- 
torul folosit de către utilizător, astiel încit. acesta.nu..trebuie 
să înveţe un nou Îimbaj ori de cîte ori folosește un nou tip 
de calculator. Există limbaje de programare orientate pentru 
cîte un anumit tip de problemă, ceea ce face ca numărul lor 
să fie foarte mare; cele mai. des utilizate sînt însă limbajele 


FORTRAN, COBOL, ALGOL, PL/I. 


La fel ca orice limbă vorbită, limbajele de programare au |! 
i. ce i e e eter a e mm am ma e Bem e ee e ee ge nm e mate e e me 
anumite reguli Sintactice și semantice care trebuie învățate 


pe "ram 


cea «tara eta ema e ao 


și respectăte, pentru â putea scrie un program corect. Veri- 
hcarea respectării acestor reguli este făcută aproape în între- 
gime de către calculator, care, cu ajutorul așa-numitelor 
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compilatoare, analizează din puncț de vedere sintactic pro= 
gramul scris de utilizațor şi semnalează erorile detectate; 
în plus, în timpul executării programului, sînt semnalate 
cauzele care nu permit calculatorului. să execute anumite 
comenzi. După cum am menționat mai sus, instrucțiunile 
care sînt efectiv executate sînt scrise în cod mașină. Trecerea 
de la un program scris într-un limbaj universal la. un-progrăm 
scris-fii” cod maşină este realizată âutomat și poartă numele 
de fzanslatare. 

Vom încheia deserierea unui calculator electronic cu 
înfățișarea modului de memorare a datelor. Memoria cal- 

culaţorului,. indiferent dacă este construiţă. folosind relee, 
tuburi electronică "său fiiiezuri magnetice etc., este formată 
din n eleineite c Care pot avea. două stări stabile. Acestor stări 
li Se asociază. valorile O şi 1,. deci. fiecără astfel de element 
poate „memora“ 0 cifră binară. De aceea, un element de 
acest fel poartă numele de bit (binary digit) ŞI constituie 
cea, mai. mică unitate de informație. Un grup de 8 biţi succe- 
sivi. constituie -6-- unitate mai mare de informaţie, numită 
Dait._ Fiecărui bait i se pune în corespondență o „adresă care 
permite identificarea lui și depunerea sau extragerea "din 
memorie a unei anumite informaţii începînd dintr-un anu- 
mit loc. O succesiune de patru b baiți consecutivi dintre care 
primul are o adresă “divizibilă, cu patru poartă numele de 
cuvînt; opt “baiţi consecutivi dintre care primul are ca adresă 
ia 

an Dumăr divizibil cu opt poartă. numele de cuvint dublu; 
1024 de baiți formează un „kilobast.. Memoria principală. a 
unui caiculator- se riăsoără Î în kilobaiţi, fiind de obicei de 
32,04; 198, 256_kbaţh.. Există calculatoare care permit oricîte 
extensiuni ale memoriei principale, astfel încît, pentru aces- 
tea, memoria este practic nelimitată. 

În afara memoriei principale, care este în general destul 
de mică, calculatorul dispune și de o 7nemorie „eaiernă,., for- 
mată din discuri, benzi și tambururi : magnetice care pot 
înmagazina mult mai multă informaţie decît memoria prin- 


cipală. 
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Menționăm că unităţile de memorie descrise --mai--sus 
sînt caracteristice numai anumitor tipuri de calculatoare, 
printre care 1BM-360 și FELIX-256. 


5) ALGORITMI 





Vom numi algoritm o mulțime de re 
întro anumită. su . Succeşiune, Cu_ajutarul. cărora. putera obţine 


solițiă unei probleme prin executarea unui număr finit de 
operaţii. Algoritmul trebuie să cuprindă” stădiul” tuturor 


situațiilor posibile, nelăsînd nimic la vâia arbitrărului, Pe 
lingă clăritate, un algoritm trebuie să aibă și propiietatea de 
univerșalitate, adică să fie aplicabil unei întregi clase de 
probleme sau cel puțin să fie utilizabil, indiferent de valoarea 
datelor de intrare, precum și proprietatea de a, fi eficace, în 
sensul de a găsi rezultatul dorit într-un timp convenabil şi 
cu o precizie suficient de bună. 

Un algoritm este format din mai mulți pași, corespunză- 
tori. diferitelor etape de calcul. Pașii se execută în ordinea lor 
naturală (secvențial), atît timp cît nu intervine o condiţie 
de salt care să comande executarea unui alt pas decît cel 
următor. 

Vom da un exemplu de algoritm pentru următoarea pro- 
blemă:  dîndu-se, polinomul P(x) = apă? + CE dit Fa k 
— Gp_1% + dn, precum și o valoare x, se cere să se calculeze 
numărul $ = P(+4), adică valoarea polinomului P(x) în 
punctul %g. Algoritmul pe care îl descriem este cunoscut sub 
numele de schema, ii Horner: 


Pasul 1:S=a; 
Pasul 2:i=0; 
Pasul 3:i=î+ 15 
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Pasul 4: Dacă î >u, atunci oprim calculele, rezultatul 
fiind valoarea din acel moment a lui S; dacă : <<, 
atunci treci la pasul următor; 


Pasul 5:S= S*x + a,; treci lâ' pasul 3. 


Algoritmul propus se bazează pe următoarea scriere a 
polinomului P(x) : 


P(%) = (((... ((0oă + a) ka) x has +...) Xa) i + an 


În descrierea pașilor algoritmului, semnul egal a fost folosit 
pentru a desemna o operație de atribuire și nu de compa- 
rare. 

În algoritmul propus ordinea. de efectuare a operaţiilor 
este clar indicată; de asemenea sînt analizate toate situațiile 
posibile. Algoritmul funcționează pentru .orice valori ale 
coeficienţilor polinomiali ap, au, -.., aa. În plus, algoritmul 
este eficace, deoarece, timpul necesar efectuării, Gperaţiilor, pe 
care le cuprinde, este mic [56 efectuează un număr minim de 
înmulţiri şi anume_g). Observăm că dacă am fi calculat 
valoărea P(x) făcînd întîi înmulțirile și apoi adunările, ar fi 
fost necesare n(n + 1)/2 înmulţiri, ceea ce âr fi însemnat 
un timp de-tucfii mult” nai mare (dispozitivul + aritmetic 





schema lui Horiier îndeplinește toate condițiile cerute unui 
algoritm. 


6) SCHEME LOGICE 


În schemele logice din această carte folosim următoarele 
blocuri logice: 
) CD 
Acest bloc este folosit pentru a marca începutul și sfirșitul 


unui program sau subprogram, conținînd, corespunzător, 
unul dintre cuvintele START, STOP și RETURN. 
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Pi, 
2) LI ŞE 


Acest bloc poate conţine numai operații de intrare / ieșire. 
i.) II III 


Blocuri de acest tip pot conţine una sau rhai multe operaţii 
de atribuire. 


[) 
DR 


Acesta este blocul deciziilor. El are o intrare și două sau trei 
ieșiri, corespunzătoare diteritelor posibilități de continuare 
a calculelor. 


> [7 
Blocul de mai sus este folosit pentru apelarea subprogra- 
melor; în partea de sus se trece numele subprogramului ce 


trebuie executat, iar' în partea de jos se trec argumentele 
corespunzătoare. 


6 0—  —0 


Acestea sînt blocuri conectoare care permit stabilirea unei 
legături între două puncte ale schemei logice, evitînd trasarea, 
unei linii care să unească cele două puncte. 

Pentru simplificarea schemelor logice, admitem ca în blo- 
curile de atribuire să apară expresii de forma: 


A—B 


care semnifică faptul că variabilele A și B își schimbă valo- 
rile; între ele; deci A <> B este echivalent cu: 


X=A 
A=B 
B=X 
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O altă, simplificare pe care am adus-o în scrierea schemelor 
logice este legată de reprezentarea ciclărilor. O secvență de 
forma 


1012] 





Fige g. 3e 


este înlocuită prin: 





De aceea, schema 


Pig. Q.5e 


determină executarea instrucțiunilor din interiorul buclei 
pentru valori ale lui 1 începînd cu valoarea inițială ] și mărind 
la fiecare reluare a executării ciclului valoarea lui 1 cu canţi- 
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tatea K-J, pînă cînd 1 depășește valoarea L, caz în care se 
trece la blocul următor din schema logică. 
Tot pentru simplificare, secvenţa: 









I=11, 11412, „NI 


7 92019142, co .,NI 





More. — . îm. î. € a. 


Piz. B.6e 
este înlocuită cu secvența: 





Fin. 9.7, 


dacă cele două cicluri se pot termina în același loc. O 
Modul propus, mai sus, pentru reprezentarea ciclurilor 

este mai sugestiv și corespunde modului de realizare a ciclu- 

rilor în cadrul programului prin intermediul instrucţiunii-DO. 


7) SCURTĂ PREZENTARE | Ei 
A LIMBAJULUI DE PROGRAMARE FORTRAN IV 
Limbajul de programare FORTRAN IV este unul dintre 
cele mai folosite limbaje de programare, Aceasta se dato- 


rește faptului că se poate învăța într-un timp mult mai 
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scurt decît alte limbaje și permite alcătuirea de programe 
pentru o mare varietate de probleme din domenii foarte 
diferite dar mai ales pentru cele numite „științifice“ de către 
cei care folosesc calculatorul. Acestea necesită multe cal- 
cule și, relativ, puține date de intrare. | 
Vom expune pe scurt cîteva din regulile sintactice de 
scriere a. programelor în limbaj FORTRAN. Un program 
este o înșiruire de. nstrucțium, care, de obicei, este comuni- 
cată calculatorului cu ajutorul cartelelor perforate. Aceste 
cartele au 80 de coloane, fiecare coloană conținînd perfo- 
rații corespunzătoare unui caracter (cifră, literă etc.). 
Instrucţiunile în limbajul FORTRAN se scriu între 
coloanele 7 şi 72 inclusiv. Coloanele 73—80, în general, 
nu se folosesc. O instrucțiune se poate continua pe cartelele 
următoare. Fiecare cartelă care este o continuare a alteia 
trebuie să aibă, în coloana 6, perforat orice caracter în 
afară de (. În coloanele de la 1 la 5 se poate scrie un 
număr de 1—5 cifre zecimale numit marca instrucţiunii. 
În cadrul unui program mărcile pot apăre în orice ordine. 
De asemenea în cadrul programului, pot apare cartele 
ce conţin caracterul C, în prima coloană, urmate de un text. 
Acestea se numesc cartele de comentariu. Ele pot apare 
între instrucțiuni și nu influențează execuția programului 
servind numai pentru a da explicații cu privire la procesul 
de calcul. - 


Constantele folosite în limbajul FORTRAN pot fi de mai 
multe feluri: 


— întregi: o înşiruire de cifre zecimale, cu sau fără semn, 
în valoare absolută de cel mult 2147483647; în memorie 
ocupă 4 baiți; 

— veale: o înșiruire de cifre zecimale, cu sau fără semn, ce 
conține un punct -zecimal (în programare virgula zecimală 
este înlocuită printr-un punct) «dacă sînt mai puțin de 8 cifre 
atunci constanta este în precizie simplă și ocupă 4 baiți 
în memorie iar dacă are mai mult de 8 cifre este în dublă 
precizie și ocupă 8 baiți în memorie; constanta reală poate 
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conține și un exponent zecimal care este o constantă întreagă, 
cu sau fără semn, precedată de litera E sau D; 


— complexe: o pereche ordonată de constante reale, cu 
sau fără semn, separate prin virgulă și închise între paran- 
teze; prima este partea reală iar a doua este partea imagi- 
nară.; 

— logice: TRUE, sau .FALSE., respectiv pentru adevărat 
sau falș; 

— hiterale: o înșiruire de caractere închise între apostro- 


furi. sau precedate de pH, unde n-este numărul taracterelor 
din șir; 


— hexazecimale: un număr scris în baza 16 precedat de 
caracterul Z. 


Numele simbolice sînt înșiruiri de 1—6 caractere alfa- 
betice (A—Z şi $) sau numerice (9—9) dintre care primul 
este alfabetic. 

Variabila FORTRAN este o reprezentare simbolică a 
unei cantități care ocupă. un spațiu în memorie; fiecărei 
variabile îi este atașat un nume simbolic. Variabila FORTRAN 
are același tip ca și constantele ce pot fi memorate în locul 
corespunzător ei. Tipul variabilelor se poate stabili în trei 
feluri: 


— prin instrucțiuni de specificaţie explicită; 

— prin instrucțiuni de specificaţie implicită; 

— prin Ha-FORTRAN:-variabilele al căror nume 
simbolic începe cu una din literele. ], J, K, L, Msau N sînt 
de tip întreg, iar celelalte de tip real în simplă precizie, 

Tabloul (vector, matrice etc.) este un grup de variabile 
de același tip care poartă un singur nume de variabilă; 
referirea la un element al tabloului se face prin numele 
tabloului urmat de indici separați prin virgule și închiși 
între paranteze ce arată poziția acelui element în cadrul 
tabloului. 

Expresule pot fi: 

— expresii aritmehce în care apar constante și variabile 
legate între ele prin operatori de adunare +, de scădere —, 


KA 


NV 
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de înmulțire +, de împărțire / și de ridicare la putere *x; 
pentru a putea inversa ordinea efectuării operațiiler se 
folosesc paranteze ; 

— expresii logice în care pot 'apare expresii aritmetice, 
constante și variabile Jogice precum și operatorii: 


«GT. (mai mare decît) 

„GE. (mai mare sau egal cu) 
„LT. (mai mic decît) 

„LE. (mai mic sau egal cu) 
„EQ. (egal cu) 

„NE. (diferit de) 

„NOT. (nu este adevărat că) 
„AND. (Şi) 

«OR. (sau). 


Instruchumle de atribuire aritmebică şi logică au forma: 
4 = [;) 


unde a este o variabilă cu sau fără indici, iar b este o expre- 
sie aritmetică sau logică. Cînd se execută o astfel de instruc- 
țiune se evaluează expresia b și rezultatul este atribuit 
variabilei. ga. 

Instruchumle GO TO cele mai utilizate sînt: 

“> instrucţiunea GO TO necondiționată, de forma 


GO TO n 


unde n este un număr de instrucțiune executabilă; execuţia 
acesteia face ca următoarea instrucțiune ce se execută în 
program să fie instrucțiunea ce poartă numărul 7; 
— instrucțiunea GO TO calculat de forma: 
GO TO (n. Ha, ...ş Hm), 4 

unde n, Na s-:-; Hm Sînt numere de instrucțiuni executabile 
iar 4 este o variabilă întreagă, fără indice, care poate să ia 
valori între 1 și m; execuția acestei instrucțiuni face 'ca 
următoarea instrucțiune care se execută să fie instrucțiunea 
cu marca n, Sau Ha... Sau Hm, după „cum variabila 4 are 
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valoarea 1] sau 2 sau...sau m în acel moment. Dacă ș nu 
este între 1 și m atunci se execută instrucțiunea următoare 
instrucţiunii GO TO. 

Instruchiunea 1F este de două feluri: 

— instrucțiunea IF aritmetic, care are forma generală: 

IF (e) n, na ha 

unde e este o expresie aritmetică de tip întreg sau real iar 
14, Ho, Hg Sînt numere de instrucțiuni executabile; execuția, 
acesteia face ca următoarea instrucțiune care se execută 
să fie cea cu numărul n, dacă expresia e este negativă, 


cea cu numărul Na dacă e este nulă și cea cu numărul n 
dacă e este pozitivă; 


— instrucțiunea IF logic care are forma generală: 
„IF (6)a 
unde e este o expresie de tip logic iar a „este o instrucțiune 


instrucțiuni face ca următoareă îristr: frucțiarie care se execută 
să fle instrucțiunea a (dacă expresia e este adevărată) sau 
următoarea instrucțiune executabilă (în caz contrar). 


Instruchiunea DO are forma generală: 
DO ni = î,, 22, 23 
unde n este un număr de instrucțiune executabilă, în afară 
de GO TO de orice tip, PAUSE, STOP, RETURN, IF de 
orice tip sau un alt DO, + este o variabilă întreagă fără 
indici, iar î,, 22, ş Sînt constante întregi fără semn sau 
variabile întregi fără indici (dacă 2, este 1 el poate fi 
omis împreună cu virgula care îl precede) ; executarea, aces- 


| | ori a 
grupului de instrucțiuni ce urmează fizic după ea pînă la 
cea. cu numărul 4 inclusiv. 
Instructiunea CONTINUE are forma: 
CONTINUE 


și este o instrucțiune executabilă dar care nu determină. o 
execuție efectivă în cadrul programului. 





tei instrucțiuni determină executarea de| 
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Iustruchunea PAUSE are una din formele: 


PAUSE 

PAUSE 4 

PAUSE '/ex/' 
unde n este un șir de 1—5 cifre zecimale iar 'fex/' este o 
constantă. literală; execuția ei determină întreruperea exe- 
cutării programului și eventual afișarea lui 7 sau a textu- 
lui (dacă acestea există). Execuţia programului poate fi 
reluată printr-o comandă dată de operator la consolă. 


Instructhiunea STOP are una din formiele: 


STOP 
STOP 


unde n este un șir de 1—5 cifre zecimale; execuţia ei deter- 
mină întreruperea executării programului. 


Instructiunea END are forma: 
END 


și este o instrucțiune neexecutabilă; indică sfîrșitul progra- 
melor sursă și se plasează la sfîrșitul programelor sau sub- 
programelor. 


Instruchunea READ are formele: 


READ (a, 5) listă 
READ (4,2, END=c, ERR=4) Bstă 


unde a este o constantă întreagă fără semn sau o variabilă 
întreagă de 4 baiți, reprezentind numărul de referință al 
setului de date, b este numărul unei instrucțiuni FORMAT, 
c și d sînt numere de instrucțiuni executabile ce se execută 
în cazul cînd setul de date s-a epuizat și, respectiv, a apă- 
rut o eroare în transmiterea datelor, iar /stă este o listă 
de intrare cuprinzînd variabilele sau tablourile care primesc 
valori la executarea acestei instrucțiuni. 
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La 


Instructiunea WRITE are forma: 
WRITE (a, 5) kstă 


unde a și b au aceleași semnificații ca mai sus iar listă este 
lista, variabilelor ale căror valori sînt scrise. 


Instruchunea FORMAT are forma: 
n FORMAT (listă de specificații ) 


unde » este numărul de referință al instrucţiunii, iar /ista 
de specificații este un şir de coduri despărțite, în general, 
prin virgulă. Aceste coduri sînt: 

— X de forma pă unde n este: o constantă întreagă 
fără semn și diferită de zero, indică exceptarea a n poziții 
de citire la intrare și inserarea a n blancuri la ieșire; 


— H de forma 
un H text 


unde n este o constantă întreagă, fără semn, diferită de zero, 
care indică numărul de caractere ale textului iar text este 
o înșiruire 'de caractere; indică în general transmiterea 
textului unei unități de ieșire; 

— “text', unde text are aceeași semnificație ca mai sus 
și acționează la fel ca specificația H; 

— 1 are forma Im unde m este constantă întreagă fără 
semn,diferită de zero, indică numărul de poziții externe din 
care se face citirea sau în care.se face scrierea datelor cores- 
punzătoare variabilelor de tip întreg; 


— F are forma Fm./ unde m este o constantă întreagă 
fără semn, diferită de zero și indică numărul de poziții externe 
din care se face citirea sau în cate se face scrierea, iar 
| este -constantă întreagă fără semn care indică numărul 
de poziții după punctul zecimal. Această specificaţie cores- 
punde;variabilelor reale de orice tip; 


— E are forma Em.l unde m și / au aceleași semnifica- 
ţii ca. mai sus și servește pentru variabile reale în simplă 
precizie; 
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— D are.forma Dm./ unde m și 1 sînt aceleași ca ma 
sus, servește ca specificaţie pentru variabilele reale în preci- 
zie dublă; 

——L are forma Lm unde m-este o constantă întreagă 
fără semn și diferită de zero, care indică numărul de pozi- 
ţii din care se face citirea sau în care se face scrierea datelor 
corespunzătoare variabilelor de tip logic; 

— G are forma Gm.l cu m și 1 cu aceleași semnificaţii 
ca la specificația F, servește. pentru transmiterea datelor 
întregi, reale de orice fel, complexe şi logice; 

— A are forma Am unde m are aceeași. semnificaţie ca 
mai sus și servește pentru transmiterea datelor alfanumerice ; 

— | determină trecerea la înregistrarea următoare. 


Observaţie: Formatele corespunzătoare instrucțiunilor de 
scriere la imprimantă trebuie să conțină ca primă specifi- 
cație, corespunzătoare tipăririi unui rînd la imprimantă, 
un caracter de control care poate fi: 


blank  —sse trece la rîndul următor: 

/, — se lasă un rînd gol și tipărirea se face pe rîn- 
dul următor; 

1 — se trece la pagina următoare; 

+ — tipărirea se face în același rînd; 


alt caracter — se trece la rîndul următor. 


Dacă nu se specifică acest caracter de control, primul care 
ar trebui să fie tipărit este luat drept caracter de control 
și nu se mai tipărește, 


Instrucţiunea DIMENSION are forma: 
DIMENSION a,(£.), a2(%2) ,..:. aa (k) 


unde a,, da ,...; dn sînt nume de tablouri iar £,, fa,..., Pa sînt 
compuse din 1—7 constante întregi, fără semn, ce reprezintă 
valoarea maximă a, fiecărui indice din tablou; ele pot con- 
ține şi variabile întregi de 4 baiţi, numai cînd această in- 
strucțiune este într-un subprogram.. 
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Instrucţiunea IMPLICIT are forma?: 
IMPLICIT îsp*s(a,, 2 ,...),..., Bpes(a., a2,...) 


unde 2 este INTEGER, REAL, COMPLEX, sau LOGICAL; 
s este opțional și reprezintă una din specificaţiile de lungime 
admise pentru tipul respectiv, Ca e Age: reprezintă fie un 
caracter alfabetic, fie un șir de caractere în ordine alfabe- 
tică indicînd primul şi ultimul caracter despărțite prin minus; 
toate numele simbolice care încep cu unul din caracterele 
indicate în această instrucțiune sînt de tipul specificat, 


Instrucţiunile de specificare exbheite -sînt de forma: 


tips axs.(P.) | 3 |, besa(Ra) | Xa | „-.-, 2*Sa (Ra) | a | 

unde tzp este INTEGER, REAL, LOGICAL sau COMPLEX, 
$, Sa, Sa, ++ Sm Sînt specificații de lungime permise pentru 
tipul corespunzător și sînt opționale, a, b,...,2 sînt nume 
simbolice, &,, k2,..., Rn sînt Opţionale și dau dimensiunea 
tablourilor, 3, Xa, -.., 4n sînt opționale și reprezintă valori 
inițiale. , 

Instrucţiunea DOUBLE PRECISION are forma generală: 

DOUBLE PRECISION a(k.), B(fa) „.-., 2(fn) 
unde 4, d, ..., 2 sînt nume simbolice iar F,, Ra ,..., Rn sînt opțio- 


nale și sînt indicații pentru indicii tablourilor; indică fap- 
țul că variabilele specificate sînt reale în dublă precizie, 


Instructiunea COMMON are forma: 
COMMON /7/a(£,), (5)... [2 lc(k), d(k).... 


unde: a,b,...,c,d,...sînt nume simbolice de variabile sau 
tablouri, FR, Ra, ..., Ra, Rg,...sînt opţionale și reprezintă 
inditi, 7,..., ,... sînt opționale şi sînt nume de blocuri co- 
mune de memorie; este folosită pentru a defini un domeniu 
de memorie la care se poate referi atît programul principal 
cît şi unul sau mai multe subprograme. | 


Instructiunea DATA are forma: 
DATA v,,...,0u [îs pe nda |, Unas--05Um îns tdnasee -stmtm e 


unde ,,...;Ym sînt nume de variabile sau de tabiouii, a,,...,dm 
sînt valori reprezentînd constante întregi, reale, complexe, 
hexazecimale, logice sau literare, 7,,..., 2m reprezintă Con= 
stante întregi, fără semn, care indică numărul de variabile 
consecutive cărora li se atribuie valorile d,,..., dm şi sînt 
opționale; această, instrucțiune definește valorile inițiale ale 
variabilelor, ale' elementelor de tablouri Și ale tablourilor, 


Instructiunea. funcţie are forma: 
nume (a, Ga, ..., dn) = expresie 


unde nume este numele funcţiei, a4,, aș, ..., dn sînt nume de 
variabile neindexate, expresie este o expresie aritmetică 
sau logică; activarea ei se face prin reterire la nume în 
cadrul programului. 


Instructiunea FUNCTION are forma: 
tip FUNCTION mumexs (a,, aa, aa, ..., 4n) 


unde 12 este opțional și este INTEGER, REAL, COMPLEX 
sau LOGICAL, nume este numele simbolic al subprogramului 
funcție, s este opțional și reprezintă cantitatea de memorie 
corespunzătoare tipului de funcţie, a,, az, as... sint 
nume de variabile. sau tablouri. Este prima instrucțiune a 
unui subprogram funcție. Subprogramul este activat prin 
specificarea numelui funcţiei în cadrul unui program sau 
subprogram. 


Instruchunea RETURN are forma: 


RETURN 
RETURN + 


și determină terminarea executării subprogramului funcție 
sau a subrutinei; n este folosit în cazul cînd din subprogram 
se poate continua î în mai multe feluri programul care cheamă 
subprogramul. 
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A 
Instrucţiunea SUBROUTINE are forma generală: 
SUBROUTINE nume (a,, a;, ..., an) 


ți 


unde nume este numele subrutinei,. a,, az, ..., a» Sînt argu- 
mente formale care pot fi variabile fără indici sau nume 
de tablouri, nume fictive de subprograme sau de forma * 
care indică un punct de întoarcere în programul chemător 
specificat prin eticheta unei instrucțiuni din programul care 
cheamă; este prima instrucțiune a unei subrutine. 


Instruchunea CALL are forma. generală: 
CALL nume (a., aa, -.-, dn) 


unde nume este numele subrutinei, g,, az, ..., 4, sînt argu- 
mente actuale cum ar fi constante, variabile, tablouri sau 
de forma, &r unde n este eticheta unei instrucțiuni execu- 
tabile; această instrucțiune produce activarea unei subru- 
tine. 

Instructiunea ENTRY are forma: 

ENTRY numie (a,, 42, ..., da) 


unde nume, ai, da, -u-, da au aceleași semnificații ca la in- 
strucțiunea SUBROUTINE; ea reprezintă un punct de in- 
trare în cadrul unui subprogram. 


Instructiunea EXTERNAL are forma generală: 
EXTERNAL &,5,c,... 
unde ga, b,c,... sînt nume de subprograme care sînt argu- 
mente actuale la chemarea altor subprograme. 


Numele unor subprograme funcţie folosite mai des în 
limbajul FORTRAN sînt următoarele: 


— EXP și DEXP pentru exponențială, 

— ALOG și DLOG pentru logaritmi naturali 
i— ALOGID și DLOGIG pentru logaritmi zecimali 
— ARSIN și DARSIN pentru arcsin 


— ARCOS și DARCOS pentru arccos 
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3 — Programe în limbajul FORTRAN 


— ATAN și DATAN pentru arctangentă 


— SIN și DSIN pentru sinus 
— COS și DCOS pentru coesinus 
— SQRT și DSQRT pentru rădăcina patrată 


— IABS, ABS și DABS pentru valoare absolută 


___ Observaţie: Toate funcțiile al căror nume începe cu litera 
D trebuie să aibă ca argument actual o variabilă sau o expre- 
sie în dublă precizie, rezultatul fiind de același tip. 


8) CUM SE PREZINTĂ PROBLEMELE 
ÎN ACEASTĂ CARTE 


Fiecare problemă este mai întîi analizată, este stabilit 
un algoritm de rezolvare, trecîndu-se apoi la întocmirea sche= 
mei logice și a programului scris în limbaj FORTRAN, 

În cadrul discuţiei făcute la fiecare problemă asupra 
programului corespunzător, referirea la o instrucțiune din 
programul principal sau din subrutină se face prin indicarea 
numărului de ordine al instrucţiunii în unitatea de program 
respectivă; deci nu este vorba de numărul de instrucțiune 
atașat acelei instrucțiuni, decît în cazul în care acest lucru 
este menționat expres. 

Deoarece programele au fost rulate pe un calculator 
IBM—36, pentru a putea să fie folosite pe un alt calcula- 
tor (de exemplu FELIX—256), trebuie făcute unele mici 
modificări. De exemplu, numărul de referință al seturilor 
de date de pe cititorul de cartele și imprimantă. este în cazul 
calculatorului IBM—369 respectiv 1 şi 3 pe cînd la calcula- 
torul FELIX—256 sînt 195 şi 108. 

Pentru executarea unui program pe un calculator IBM 
—36( se pune la citițorul de cartele următoarea succesiune 
de. cartele: 


1] JOB nume 
[| OPTION LINK 
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| EXEC FFORTRAN 

| instrucţiunile programului și ale subprogramelor co- 
respunzătoare 

Je 

[| EXEC LNKEDT: 

[| EXEC 

| date corespunzătoare programului (opţional) 

| 

| & 


Toate instrucțiunile de mai sus încep în prima coloană a 
cartelei. 

Pentru a exemplifica alcătuirea unei scheme logice și a 
programului corespunzător, vom da în continuare cîteva 
exemple simple. 


1) Produsul scalar a doi vectori. 


Avînd doi vectori A=(4j) 1=1,2,..„,„n și B=—(9) 
4 = 1,2,...,n vrem să calculăm produsul lor scalar, adică 
numărul $ dat de formula: 


S = > a,b; 
i=l 


Schema logică corespunzătoare este dată în fig. 0. 8 a) sau 
folosind convențiile expuse anterior se pune sub forma mai 
simplă din fig. 8. 8b). | 

Subprogramul care realizează acest calcul l-am numit 
SCALAR și are ca parametru formal pe S care este rezultatul 
căutat. Introducerea datelor necesare calculelor în sub- 
program este făcută printr-o instrucțiune COMMON care 
pune în corespondenţă cele 300 de elemente ale vectorului 
A din subprogram cu cele 310 de componente ale vectorului 
X din programul principal, cele 30% de componente ale 
vectorului B din subprogram cu cele 334 de componente 
ale vectorului Y din programul principal și N din subpro- 
gram cu N din programul principal. 
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Programul principal citeşte dimensiunea. N a celor doi 
vectori, apoi citește elementele vectorilor X și Y, apelează 
subprogramul SCALAR și tipărește rezultatul S$. 


II) Produsul a două matrice. 


Dîndu-se matricea X = (%;,) 2 = 1,2,...,n; = 1,2,....m 
și matricea Y = (9) 1=1,2,..,.m;j=1,2,...] 
să găsim matricea Z= (2) î=1,2,...,n; 3= 1,2 
ale cărei elemente sînt date de formula: 


n 
Zina = d Yin 
7= 


Schema logică a subprogramului care calculează elemen- 
tele matricii Z este dată în fig. 0. 9. Subprogramul cores- 
punzător a fost numit PRMAT și are ca parametri formali 
matricele X și Y care sînt date, matricea Z în care se obține 
produsul celor două matrice și N, M și L care dau dimensiu- 
nile corespunzătoare celor trei matrice. 

Observaţie: Pentru a micșora timpul de calcul, se poate 
pune în loc de Z(1, K) o variabilă fără indici (de exemplu 
W) în instrucțiunile a 5-a și a 7-a şi după ce s-a terminat 
ciclul după ] se pune Z(I, K) = W. În acest caz, ciclul după 
] nu se mai poate termina în același loc cu ciclurile după 
K șil. 


Programul principal a citit de pe cartele matricele: 


_4 2 O 3 
Ci 3 4 
a apelat subprogramul PRMAT și a tipărit rezultatul. 


111) Numerele pitagorice. 

Vrem să găsim toate numerele naturale 3,7, & mai mici 
decît un număr natural dat n astfel încît să fie satisfăcuțtă 
relația: 

42 4- j2 = R2 Rae 


| 
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a) Găsirea acestor triplete de numere se poate face dînd 
pe rînd variabilelor 7, 7, k valori între 1 și n și văzînd dacă sa- 
tisfac relația de mai sus. Acest proces de calcul este arătat 
în schema logică din fig. 0.10. Programul corespunzător a 
/durat ! 11 min. 47 sec. pentru a găsi toate numerele pitago- 
ice pină 1â 1 Mi m 
-b) Soluţia- precedafită este. foarte simplă dar nu este 
prea bună din punctul de vedere al numărului calculelor 
pe care le necesită, deci a timpului efectiv de calcul. De 
cele mai multe ori, problema care se pune în programarea 
calculatoarelor este de a găsi unele metode care să scurteze 
timpul de execuție -necesar rezolvării problemei. Această 
problemă va fi discutată în mai multe rînduri în cadrul aces- 
tei cărți. 

Să vedem cum am putea să - reducem numărul de cal- 
cule în găsirea numerelor pitagorice. Mai întîi observăm 
că dacă 7,7,k sînt numere pitagorice atunci și 7,7, & sînt 
numere pitagorice. Am putea. deci să punem condiţia + </, 
deci variabilei: 7 putem să-i dăm valorile 7,7 + 1,..., 1 redu- 
cînd numărul calculelor la aproape jumătate. Deasemenea, 
se observă că variabila k este mai mare decît 7 deci și ei 
putem să-i dăm numai valorile 7,4 +1, ..., micşorînd 
ce asemenea numărul calculelor. Deoarece 7 rezultă 


= VE <Va+z |V/a=a| V/2<N/V/2 deci şi lui s 
A putem micșora intervalul de variație 5 =1,23,..., IN | VP . 
Dacă mai ținem seama și de faptul că putem să dăm valori 
variabilei k& pînă cînd expresia 72 + ș2 — k2 devine pozitivă 
după care trebuie să luăm o altă valoare peiitriu 7 sâu 7 0bți- 
nem schema logică din. fig. 0.11. Programul corespunzător 
acestei scheme logice a durat 1 min.4l sec. pentru a afla 
numerele pitagorice pînă la Ă | 

€) Aceeaşi „problemă se poate rezolva și în felul următor. 
Făcînd să varieze î între 1 şi. n | / 3] iar 3 între z.și n vedem 
dacă î? + 72 este un pătrat perfect. În limbajul FORTRAN 
acest lucru se poate vedea ușor bazîndu-ne pe faptul că, 
dînd unei variabile întregi o valoare reală, în acea variabilă 


para a 


2 Am notat cu [x] partea întreagă a numărului +. 
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3a 


se păstrează numai partea întreagă a valorii reale. De aceea 
dacă notăm cu K valoarea VIE + J? atunci 12 + J este un 


pătrat perfect dacă și numai dacă Il -+- J* = 





„ Puteţi 


încerca să faceți schema logică și: programul rezolvării pro- 
blemei. prin această metodă. Atenţie la tipul variabilelor! 


| E) | 
Soumaaunr wosauaunh SONAAUAANI NORA 


SUBROUTINE SCALAR(S) 
Sepi A(540),8(300),5% 


O 12 I=1,N 
12 Sessa *B(1) 
RETURN 
END 
COMMON + (346) XI (549), 
READ (1,19)N 


15 FORMAD(I4) 
READ(1 12)(X(1) „I=1N) 
15 FORMATĂ 14 
READ (2 25) CECT) 
CALL eaLaRi Ş) 
WRITE(3,1 


PORMAT(? 105 SUL, SCALAR AL VECTORILOR ESTE $4',814.7) 


STOP 


SUBROUTINE PRMAT(X,Y,2,N,M 
„DIMENSION „(15 „15,5, lie dag, 1) 


DO 5 I=],N 
DO. 5 K=1,L 


oo ZU c)=p! 
5 za orale arta pa) arta) 


END 


DIMENSION A A(18,10) „B(15,19) ,0(25,16) 


2 7oRua(329” Lu 


i 330 a 310 GA (249) aaa) 


DO 4 I=ă,M 
4 EBID (A 5 paul 23E) rest 


3CN;M,L) 


8 pese PRODUSUL CELOR DOUA MATRICI BSTE!//) 
sK=leL) 


DO 7 
7 vEnta( 34 E colza) 
6 toRuas(i AEP R Ii 





" PRODUSUL CELOR DOUA MATRICI ESTE 


*8.977445 *7.92405 
»5 77075 Di 
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READ (1,1)N 
1 FORMAT (13) 
Nl=N/1,41 
DO 2 I=1,N1 
DO 2 J=1,N 
DO 3 K=J,N 
IFP(1xx2+Jxx2-Kax2)2, 4,5 
'3 CONTINUE 
:G 


OTO 2 
4 WRITE (3,5)I1,J,K 
u 5 FORMAT(317) 
12 2 „CONTINUE 
S'TOP 


So oa OA PUI Dai 





15 
14 END 
REZULTATELE PROGRAMULUI SINT; 
at 3 4 5 
s-5 12 13 
sai 6 8 


m 
- 
O 
s 
O 
put. 


9) CE ÎNSEAMNĂ UN PROGRAM BUN? 


i | 
l Criteriile după care se.măseară calitatea unui program 
$înt cântitatea de memorie necesară și timpul de lucru nece- 


sar executării lui. Cu cît reușim să facem mai îiuită-ecoriomie 
de meimorie și să. reducem timpul de lucru, printr-o judici- 
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oasă alegere a algoritmului de rezolvare a problemei și prin- 
tr-o folosire adecvată a instrucțiunilor limbajului FORITRAN, 
cu atît obținem un program mai bun. 


Menţionăm faptul că scrierea programului cu un număr 
cît mai mic de instrucțiuni nu conduce în mod necesar la un 
program mai bun şi deci nu poate fi considerată un criteriu 
în aprecierea calității unui program. Așa cum cititorul va 
putea. vedea la multe probleme din această culegere, intro- 
ducerea cîtorva instrucțiuni suplimentare poate reduce mult 
timpul de lucru. Reducerea numărului de instrucțiuni poate 
fi făcută numai dacă prin aceasta nu este mărit timpul de 
lucru sau cantitatea de memorie necesară. 


La majoritatea problemelor, însă, nu putem reduce. în 
același timp și timpul de execuție și volumul de memorie, 
reducerea unuia avînd ca urmare mărirea celuilalt. De aceea, 
în astfel de cazuri, ri, trebuie să-ne -îxăm asupra unuia dintre 
cele două criterii, i alegerea făcîndu-se în funcție de condițiile 
concrete (memoria calculatorului pe care lucrăm și timpul- 
mașină pe care îl avem la dispoziție). Aceasta face ca, de 
multe ori, pretenţia de a fi alcătuit un „cel mai bun program“ 
să fie. hazardată. 

Vom exemplifica cele spuse “mai sus rezolvînd problema 
găsirii tuturor numerelor prime mai mici decît N = 1000. 
Dăm trei soluții pentru această problemă și anume: 
Soluiia I — Se iau pe rînd numerele naturale I: începînd cu 
3 și mergînd, din doi în doi, (numerele pare neputînd fi 
prime) pînă la N. Pentru fiecare 1 se consideră pe rînd toți 
întregii mai mici decît rădăcina pătrată a numărului | și 
dacă există unul, printre aceștia, care îl divide pe I, rezultă 
că numărul 1 nu este prim și atunci trecem la următorul Il; 
dacă nici unul nu divide pe [, rezultă că ] este prim. Schema 
logică pentru acest algoritm apare în fig. 0.12. 

Soluţia II — Introducem un vector de lungime 1000 care 
are componentele egale în ordine cu primele 1 000 numere 
naturale. Începem cu poziția a doua şi anulăm conţinutul 
pozițiilor multiplu de 2 și mai mari decît 2. Căutăm urmă- 
toarea poziție care conţine un număr diferit de zero și anu- 
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lăm conținutul poziţiilor multiplu de această poziție. Repe= 
tăm procedeul pînă ajungem la o poziție mai mare decît 
rădăcina pătrată a lui N. În acel moment, numerele diferite 
de zero din vector sînt tocmai numerele prime mai mici 
decît N, așa cum se poate constata cu ușurință. Schema 
logică apare în fig. 8.13 
Soluţia III — Se introduce un vector care să conțină numai 
numerele prime, componentele vectorului determinîndu-se 
succesiv în modul urmăţor: facem variabila 1 să ia succesiv 
valori impare începînd cu valoarea. 5 și pînă la limita N fixată ; 
pentru fiecare 1 se verifică dacă acest număr se divide prin 
vreunul dintre numerele deja înscrise în vectorul A; în caz 
afirmativ, se trece la următoarea valoare a lui I, iar în caz 
contrăr valoarea lui | este înscrisă pe prima poziție liberă 
din vectorul A, trecîndu-se apoi la următoarea; valoare a lui 
I. Iniţial înscriem în vectorul A valorile 2 și 3. Lungimea 
cu care este declarat vectorul A o vom alege folosind o apro- 
ximaţie prin adaos a numărului de numere prime mai mici 
decît numărul. N considerat. Schema logică apare în fig. 
O. 14 

Se observă cu ușurință că varianta care asigură, cea mai 
mare economie de memorie este prima, variantă, în celelalte 
utilizîndu-se cîte un vector. A doua soluție realizează un 
timp de lucru foarte scurt, neexecutîndu-se operații aritme- 
tice; în schimb este necesar un timp de lucru mult mai mare 
decît în cazul primei soluții. A treia soluție alege un drum 
de mijloc, folosind o cantitate de memorie mai mică decât 
în cazul celei de a doua soluții și necesitînd un timp de lucru 
mai mic decît prima soluție. 

Programele corespunzătoare celor trei soluții sînt urmă- 
țoarele: 


Soluha I 
N = 1009 
WRITE (3, I)N | 
1 FORMAT (NUMERELE PRIME DE LA I1LA, LE, 
'SINT') 
DO 41=3,N,2 


k 
IF(Y.EQ.I/K)GOTO 4 
2 CONTINUE 
WRITE (3, 3) 1 
3 FORMAT ( ! “, 15) 
4 CONTINUE 


STOP 
END 


Soluția II 
INTEGER A(1999) 
N = 19888 
DO 11=1,N 
1 A0)=I 
X=N 
M = SQRT (X) 
DO 31—2,M 
IF (A(D-EG 0) GOTO 3 


2 j=I+l 
IF (J.GT.N) GOTO 3 


3 CONTINUE 
WRITE (3, 4) N 
4 FORMAT ( NUMERELE PRIME DE LA 1 LA', 16, 
*'SINT”) 
DO6I1=2,N 
IF(A().EQ.0) GOTO 6 
WRITE (3, 5) A() 
5 'FORMAT ( ', 16) 
6 CONTINUE 
STOP 
END 


Soluția Il] 
INTEGER + 2 A(200) 
N=19009 
A() =2 
AQ) =3 
M=—2 
DO 21=5,N,2 
DO1J=2M 
X=—I|l 
X = X/ AC) | 
IF(X.EQ.I / A(J)) GOTO 2 
1 CONTINUE 
M=M-—l 
A (M)=I 
WRITE (3, 3)1 
3 FORMAT ( *, 13) 
2 CONTINUE 
STOP 
END 
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START 


N=1995 


p=—— T=1,2, o..N. 


1=5,7soss.sN | 


A(I)=I 








J=2,9y ese 


Le) 
a 
= 3 
E iii 
|*g LA e ir, a 
w > Ql 
IL 
| 1 Î 
| | ic | 
N! | S] ] 
2 a aa a a n i a a 





I=249y scesN, 


Fig, 4214. 


STOP 


Fig, 9.13; 
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PROGRAMUL 1 


Se dă un vector A cu N componente. Să se scrie un program 
cave să modifice vectorul astfel încit primele M componente să 
apară în final pe ultimele M poziții, iar ultimele N-M com- 
ponenie ale vectorului inihal să apără pe primele ponţu 
(M < N). 


Facem întîi observația că, dacă dispunem de suficient 
de multă memorie liberă, putem introduce un vector supli- 
mentar B avînd tot N componente și înscriem în primele 
N-M componente ale sale ultimele N-M componente ale lui 
A, iar în ultimele M componente ale lui B înscriem primele 
M componențe ale lui A. Apoi, vectorul B este copiat în vec- 
torul A. Instrucţiunile care realizează acest lucru sînt ur- 
mătoarele: 


NM = N-M 

DO11=1,NM 
1 B(O)=A(M+1) 
_DO021=1,M 
2 B(NM + D) = AC) 

DO 31=1,N 
3 AD BD 


În cele ce urmează ne situăm în ipoteza că introducerea 
unui vector suplimentar de aceeași lungime cu A ar depăși 
cantitatea de memorie pe care o avem la dispoziție (aceasta 
se întîmplă de exemplu dacă A are un număr foarte mare 
de elemente). Atunci calculele trebuie făcute numai în inte- 
riorul vectorului A. N 
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O primă metodă de realizare constă în următoarele etape: 

Aducem mai întîi elementul A(M) pe ultima poziţie, 
schimbînd în ordine pe A(M) cu A(M + 1), pe A(M + 1) cu 
A(M + 2), ..., pe A(N — 1) cu A(N). După această etapă, 
elementele vectorului A vor avea valorile: 

A(1),A(2),...,.A(M i 1), A(M + 1), A(M + 2),....A(N), A(M) 

Prin schimbări succesive de același fel aducem pe A(M— 
— 1) pe poziţia N—1. Elementele vectorului vor deveni în 
ordine următoarele: 

A(1),A(2),....A(M — 2),A(M + 1),A(M + 2),..:,A(N), 
A( M) 


Operînd pe rînd în același mod asupra lui A(M — 2), 
A(M — 3), ..., A(1) vom obţine în final elementele în ordinea 
dorită. 

Dezavantajul acestei-metode constă în faptul că numărul 
de calcule care se efectuează este foarte mare. 

Metqda prin care rezolvăm problema propusă este urmă= 
toarea: | 

În prima etapă inversăm ordinea elementelor din vec- 
torul A; ca urmâre elementele. vor apare în ordinea: 


A(N),A(N — 1),...,AQ),A() 

În a doua etapă, inversăm ordinea elementelor ce se află 

pe ultimele M poziții. Obținem șirul de elemente: 
A(N),A(N — 1),...,.A(M+ 1), A(1),A(2),...,.A(M) 

În a treia etapă inversăm ordinea elementelor din primele 
N—M poziţii. Ca urmare, elementele vor apare în ordinea 
dorită. 

Subrulina DEPL realizează tocmai această metodă. 

Schema, logică apare în fig. 1.l. 
-* Programul principal constă în citirea vectorului A și a 
lui M, în scrierea acestui vector, în efectuarea transformării 
dorite cu ajutorul subrutinei DEPL și în scrierea vectorului 
transformat. 
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EXERCIŢII 


1) Să se scrie o subrutină care să realizeze transformarea 
vectorului inițial conform primei metode propuse. Se va 
alcătui și schema logică. 


K=N/2: 
I=1,2, .:,K 


=A(I) 
A(I)=A (N+1-1) 
A (N+1-1)=X 









mo om om em m em mm 


K=(N-M)/2 
M1=N-M+1 / 


7 Iaik | 


„ X=A(I) 
A(1)=A(M1-I) 


- A(MI-I)=%X 


oo. 





| 1=1,2p e ..şK 





XA (MI) 
A(MI1+I1)=A(N+1-1) 
A(N+1-1)=X 
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2) Să se calculeze în funcție de N și M numărul de opera- 
ţii de atribuire care se fac pentru fiecare dintre cele două 
metode propuse. 

3) Ce modificări! trebuie aduse instrucțiunilor 16—20, 
astfel încît eliminînd instrucțiunea 15 programul să rămînă 
corect? 


2 SUBROUTINE DEPL(A,N,M) 
2 DIMENSION A(N) 

3 K=N/2 ” 

4 DO 1. 1=1,K 

5 X=A(I) 

6 A(I)=A(N=I+1) 

7 1 A(N-I1+1)=X 

8 K=(N-M)/2 

9 Ml=N-M+1 
15 DO 2 I=1,K. 
11 X=A(I) 

12 A(I)=A(MI-I) 

13 2 A (MI-I) =ă 

14 K=M/2 
15 M1=N=M 
16 DO 3. I1=1,K 

17 X=A (M1+ 3 
18 CIT) ZA (Ne1-1) 
19 3 A(N+1-1)=X 
27 RETURN 
21 END 

pi DIMENSION A(11) 

2 READ(1,1)A 

3 1 FORMATI 11732 ,2X,12) 

4 WRITE(3,2)A 

5 2 PORMAT(* VECTORUL INITIAL ESTE'/* 1,11P5,1) 
6 CALL DEPL(A,11,M) 

7 WRITE(3,3 3 )MyA 

8 3 FORMAT(! SE ue PRIMELE ',12,* COMPONENTE PE ULTIMELE 

1POZITII!/'. VECTORUL FINAL ESTE /* ,11F5.1) 
STOP 

14 END. 


DATELE PROGRAMULUI SINT :: 
11 12 13 14 1516171819252 4 





REZULTATELE PROGRAMULUI SINT: 


; VECTORUL INITIAL ESTE 

le 1.3 1.4 1.5 1.6 1.7 1.8 1.9 2.5 2.1 
SE ADUC PRIMELS 4 COMPONENTE PE ULTIMELE POZITII 
VECTORUL FINAL ESTE 
" de5 1.6 1.7 218 1.9 2.5 2023 del 1,2 led de 
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PROGRAMUL 2 


Să se scrie un program care să -vezolve ecuații de forma: 


AX2:+BX+C=68 


Pot avea loc următoarele cazuri: 

aj) A=B—=—C=— 9; în acest caz, ecuaţia este nedetera 
minată; 

b) A=B=0,C+ 0; în acest caz, ecuaţia este impo= 
sibilă;. 

c) A= 0, B-£+ O; în acest caz, ecuaţia este de gradul | 
și are soluția X = —C/B; 

d) AP 8; în acest caz, ecuaţia este de gradul II și dacă 
notăm A = B? — 4AC, sînt posibile următoarele trei cazuri: 

1) A= O și atunci soluțiile sînt: X, =X.—-—B/(QA); 

2) A > şi atunci soluţiile sînt: X,.=(—B-+|//A)] 
(24); X, = (—B-— V/2)/ (24); 

3) A< 0 şi atunci soluţiile sînt: X,.——B IZA) + 
+i VILA); X, = —B/Q4)— VA | (24). 

Schema logică a programului este dată în fig. 2.1. De 
fiecare dată, după ce s-a terminat execuţia pentru o ecuaţie, 
se citește o nouă cartelă care conține coeficienții altei ecuaţii. 
Programul continuă pînă cînd nu mai sînt de rezolvat ecuații 
(se termină de citit cartelele de date). 

În acest program este ilustrată folosirea „n instrucţiunea, 
READ a opţiunilor ERR și END. Dacă pe'cartela de date 
apare un caracter nepermis (de exemplu un caracter alfa- 
betic pentru date numerice, mai multe puncte sau semne 
minus în cîmpul corespunzător unei variabile numerice etc.) 
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se întrerupe operaţia de citire și instrucțiunea care se execută, 
în continuare este cea cu marca indicată de ERR. În cazul 
de îață dacă apare o eroare în date se execută instrucțiunea 
STOP, adică se oprește execuția. programului. Dacă la citire 
se întîlnește o cartelă ce conține în primele două coloane 
caracterele / + (cartelă de sfîrşit de date) se execută în conti- 
nuare instrucțiunea cu marca indicată de opțiunea END. 
În cazul de faţă, se execută instrucțiunea STOP. 

Pentru verificarea programului au fost rezolvate urmă- 
toarele ecuaţii: | 


O+X2 + G*X+O0= 

— 92+X2 + I*X —1—9 
1+X2 4 24% —3=— 
O+X2 + D+*X+5=9 

— 1xX2 + 10*X — 925 = 0 
D+X2 — 3*X+5=0 


EXERCIŢII 


1) Ce modificări trebuie făcute în program pentru ca, în 
cazul unei erori în date, să se citească o nouă cartelă de date 
și nu să se oprească execuția programului? 

2) Ce se întîmplă dacă lipsește opțiunea END = 199 
diri prima instrucțiune a programului? 

3) Se mai poate micșora numărul de instrucțiuni din 
program? Cum anume? 
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„Citeşte A,B,C/ * 


D= D= Va 








X1=-B/(24A) 
X2=D/ (24| 


| X1= (-B+D)/ (24) 
_X2=(-B-D)/(2A) 


Scrie! 
/  ECUATIE NEDETERMINATA. 
Mai sta 


cartele de 
date ? 











Fig. 22 


46 


Sona auNia 


15 READ(1,15, pERR= =195 „END=109)4A,B,C 


TE(5,49) 
49 FO aţi * "ECUATIA ESTE NEDETERMI NA TA * ) 
GOTO 1 
5 RI TE(2 2,20) 
25 FORMATE ECUATIA ESTE IMPOSIBILA”) 
GOTO 1 
= XS20/B 
WRITE (3,535)X 
35. caute | ECUATIE DE GRADUL 1 X="*,F8.3) 
GOTO 13 
1 DELTA=B*B-=4*A *Q 
IFP(DELTA)9,7,8 
7 X=-B/(2+*A) 
WRITE (547. 79)%X 
75 FORMATE ECUATIE DE GRADUL II X1=X2=+ ;F8.3) 
8 D SARE DELTA ) 
X1=(-B+D)/(2+*A) 
X2=(-B-D)/(2+*4A) 
WRITE (3,59 )X1,X2 
56 Fo mari ECUATIB DB GRADUL II Xl=*,F8.3,' X2=*',P8,3) 


WRITE(5,60)X1, X2,X1,X2 

60. FORMATI ! ECUATIE DE GRADUL I1 Xl=*,P8,3,1+1,F8.3,151/ 
C2px, * X2=* 9P8e3pt= FB, 5tel! ) 
GOTO 13 

d SToP 


REZULTATELE PROGRAMULUI SINT _: 


ECUATIA ESTE NEDETERMINATA 

ECUATIE DE GRADUL II Xl=  g9.259+ 5.6611 
X2= B.230- 5.661:*1 

ECUATIE DE ORADUL II Xla 1.955 X2= 3.506 

ECUATIA ESTE IMPOSIBIIA . 

ECUATIE DE GRADUL 11 Xl=k2= 5,095 

RCUAŢIE DE GRADUL I Xa 9.167 
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PROGRAMUL 3 
Să se descompună un număr întreg în factori primi 


Se știe că orice număr întreg M se poate scrie în mod 
unic sub forma: 


M =— + Pix Pa2e...+ Pin 


unde P,, P,....,P, sînt numere prime distincte. Semnul din 
față este + dacă M este pozitiv și — (minus) dacă este nega- 
tiv. 

Subprogramul FCPR găsește descompunerea numărului 
întreg M în factori primi care sînt memoraţi în vectorul IF 
și a căror puteri sînt memorate în componentele cores- 
punzătoare din vectorul IP; N dă numărul de factori primi 
distincți. Este de remarcat faptul că, aici, numele unui 
vector (IF) coincide cu numele unei instrucțiuni din limbajul 
FORTRAN, ceea ce nu afectează cu nimic executarea corectă 
a subprogramului. La început N este făcut 0;seia MI =|M|, 
se iau pe rînd numerele naturale | începînd cu 2 și se vede 
dacă: M1 se împarte exact la 1 sau nu. Dacă nu se împarte 
exact, se face împărțirea cu numărul următor, iar dacă se 
împarte exact se mărește valoarea lui N cu o unitate, lui 
IF(N) i se dă valoarea I şi în IP(N) se pune numărul ce repre- 
zintă puterea maximă N a lui I, astfel încît P =— IN să dividă 
pe ML; M1 este înlocuit cu M1/P, după care se reiau calcu- 
lele cu un nou I. Algoritmul se termină cînd | depășește 
valoarea lui Ml. Schema logică a acestui subprogram este 
dată în fig. 3.1. 

Programul principal descompune în factori primi mai 
multe numere -care sînt introduse în calculator prin instruc- 
țiunea. DATA într-un vector M. Pentru a nu rezultă unele 
semne în plus la. scriere prin parcurgerea formatelor, a fost 
folosită o variabilă A în care s-a pus un spațiu liber și care 
este scrisă înainte de fiecare semn de înmulțire care trebuie 
tipărit. 
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EXERCIŢII 


1) În subprogramul FCPR se fac operaţii începînd cu 
I = 2 și apoi valoarea lui I crește cu cîte o unitate pînă îl 
depăzește pe MI. Nu se poate face un ciclu după ÎI de la 
2 la MI? 


2) Ce se întîmplă dacă instrucțiunea DATA apare după 
instrucţiunea STOP? 








Da 
IP(N)=IP(N)+1 





Fige 5] 
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3) Dacă înainte de instrucțiunea DATA apare instrucțiunea: 

DATA M(1)/37/ 
ce valoare va fi luată în considerație pentru M(1)? 

4) Cum putem reduce numărul instrucțiunilor din pro- 
gramul principal introducînd o variabilă suplimentară pentru 
semn? 


hi SUBROUTINE FCPR(M,IF,IP,N) 
2 DIMENSION 1F(1),12(1) 
N= 
4 IF(M.EQ.9) RETURN 
2 MIE TABS(M ) 
7 4 IE (M1-U1 /E+7 „EQ+9) GOTO 1 
8 2 I=1+ 
9 IE(I +Q7.N1)EETUBN 
ei”. O 4 
al a văi 
32 IP(N)= 
13 IP(N)=1 
14 39 MI=MI/I 
15 IP(M1-M1/1sI NE.) GOTO 2 
16 IP(N)=IP(N)+1 
17 GOTO 34 
18 END. 
3 DIMENSION IF(54),1P(598),M(24) 
2 DATA M/36,144, 732,-15,=6561,=1,1,13*8/,4/* 1/7 
3 DO 4 1=1,8 
4 CALL FCPROMCI), IF,IP,N) 
5 IF(N-1) 
Sp mure „BUC MI) 
7 3 FORMATII 1,5X,12, 120,12) 
8 GOTO 4 
9 2: IP(M(1) „L7.5)G070 5 


WRITE (5,6)M(I) (p(3-1), IP(J-1) ,A,J=2,N), IF(N) „IP(N) 
Yi 6 FORMAT(I8, '=*,Î3(14,*xet,12,A1,1Xl)) ? 
15 5 VAL 223, PMC), (IF(J-1) ,1P(J-1), ) 
- 3-1) „A 52,N 
24 7 FORMAT(I8,'= lectie ada pp) oTPN) Te) 


15 0OTO 4 

16 8 IF(M(I).LT,4) 00 

17 VRITE(5, 6)u(I); ea) „IP(1) 
18 GOTO 4 

19 9 WRIE(5, 7)M(T),IF(1),IP(1) 
25 4 CON 

21 Sr 

-22 END 


REZULTATELE PROGRAMULUI _: 


362  2su 2X 5ux 2 
144= 255 4X 3xx 2 
73202  2xa 2X  3ux 1X 6lux 12 
-15z= Sus 1 X Su 1 
-6561=-  35s+8 
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PROGRAMUL A 


Să se scrie un subproeram pentru vudicarea unei matrice 
la o putere întreagă pozulivă. 


Avînd o matrice A = (a,;;) 2,7 = 1,2,...,n matricea A” unde 
m este număr natural se poate găsi cu ajutorul subprogra- 
mului PROMAT, prezentat în introducere, apelindu-l de 
m-l ori. Se poate obține mai rapid rezultatul dacă scriem 
puterea m în baza 2 


R 
m = Vai cu ap şi a;e(0l) pentru = 0,1,...,k 
is=U 


Deci avem relaţia: 


Lai 


Am — Adoy(A2)1x... (A) 


Se ia ca valoare „iniţială, pentru matricea rezultat, .ma- 
tăicea unitate E = (5,,)*) și se mai ia o matrice în care se pun 
puterile de forma 2: ale matricei A, Dacă a, este 1 se înmul- 
țește matricea care memorează rezultatul parţial cu matricea 
A2, iar dacă a;este Anu se mai face înmulțirea deoarece 
(Ai = E. 

Subprogramul BINARN dă reprezentarea în binar a 
unui număr natural. Schema logică a acestui subprogram este 
dată în fig. 4.1. P reprezintă numărul natural ce se. transfor- 
mă în binar, Ll este un vector în care se pun cifrele binare 
în ordinea inversă celei obișnuite; iar L reprezintă numărul 
cifrelor binare găsite. 

Subprogramul PTMAT calculează AN. Schema logică 
este dată în fig. 4.2. Matricea A este matricea dată, matricea. 


a) 6;j este simbolul lui Kroneker; este 1 dacă i = şi Q) dacă 
2=£J. 
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rig, 4.1 





—— o oo e n cp. o. 


1 I=1,2,o..M 


4 Sudi 


ID(I,9)=A(I,J) 


omule di» pe mpi anim ame 





BULI)=0(1,9) 


Le — SII 


B este cea în care se obține rezultatul, matricea D conține 
puterile matricei A iar matricea C este o matrice de lucru 
care se folosește ca matrice rezultat la înmulțirea a două 
matrice. P, L și Ll au semnificațiile de mai înainte. 


Programul principal citeşte” matricea A de ordin 10 și 
o tipăreşte, apoi ridică matricea la puterea M şi tipăreşte 
rezultatul. 


EXERCIŢII 


1) Ce se întîmplă dacă în subprogramul PTMAT, P este 
dat ca parametru în locul lui N și se scoate instrucțiunea 
a 4-a? 

2) Putem să folosim în subprogramul PTMAT matricea 
A în locul matricei D? 

3) Să se înlocuiască instrucțiunile de:la 6 la 13 din sub- 
programul PTMAT cu un număr mai mic de instrucțiuni 
echivalente. 

4) Pentru ce puteri se fac calcule în programul principal 
și cum se explică faptul că la imprimantă apare numai un 


singur rezultat? Ce trebuie să modificăm în programul prin- 
cipal pentru a se tipări toate rezultatele? 


2 DIMENSION A(1g b(ag.ă 
> READ (1,18)M 27) (18,19) 

3 18 zonal 10)" 

ş i READ(A2 E (730) 951) 

25 (A = 

6 2 FORMT(5p5)! > 

7 DO 3 I=], FA 

8 3 vRITE(3, 4) (Ar, 9) IL) 

9 4 PORMAT(î *1gF712,6) 

aa DO 19 N=1,8,3 
al CALE: PTMAT(A sBsM,N) 
a2 9 CONTINUE 

15 WRITE(3, 5)N 

14 5 TORA?! ÎMArarCeA A RIDICATA ÎA PUTEREA',13,? ESTE'//) 
26 6 WRITE(3,4) (B(1,9) „d=1,M 

17 STOp -* 99) pl 190) 

18 END e 
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BOA IAANIDhb 


Soosauaunn 
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SUBROUTINE PTMAT(A,B 


DIMENSION A(19,19), SUN 2), c(19,19) „D(15, 15) ,L1(52) 


INTEGER P 
P=N 
CALL BINARN(P,L,L1) 


K=1 

IF(L1(K) .NE,1) GOTO 12 
CALL PROMAT(B,D,C,M) 
DO 5 T=1% 

DO 5J 

B(1 „cla, J) 
K=K+1 

IF(K,GT.L) RETURN 


CALL PROMAT(D, D,C,M) 


DO 13 I=1"M 
DL, Pepe JI) 


SUBROUTINE BINARI(: | 
DIMENSION L1(21) 
INTEGER P 
L=5 

=L+] 
Ll(L)=P-P/2*2 
P=P/2 


/ 
IF(P.NE.4) .GOTO 2 
RN 


ZULTA“ PROGRAMUI TT 


5 A, -2 
i „570390 O -1.909098 -/ 5 
2 „500995 2 900925 2990048 


MATRICEA A RIDICATA LA PUTEREA 7 EST 


1513.997%97  924.9700005 1462.099030 
195.923 '205.9090003  462.290725 
+1924.279999 -5978 „070708 -61.903929 


PROGRAMUL 5 


Să se găsească restul împărțirii prin K a numărului natural 
[, unde (UK) = î. (1J,K sînt numere naturale.) 


După cum am văzut mai înainte, restul împărțirii unui 
număr natural N la un număr natural K se poate afla cu 
ușurință calculînd expresia N—N/K+K. Dacă însă 1 și J 
au valori mari, [ poate avea o valoare care depășește cel 
mai mare număr întreg care poate fi reprezentat în calculator 
(adică 23:—]). 

O primă reducere care se poate face este înlocuirea lui 
I prin restul împărțirii sale prin K. Deci putem considera 
că OB <I<K. | 

Problema propusă se poate rezolva aflind succesiv clasele 
de echivalență modulo K ale.lui 1,12,15,...,]). Dezavantajul 
constă în numărul mare de calcule care trebuie efectuate, 
deci în cantitatea mare de timp necesară rezolvării problemei 
de către talculator. | | 

Metoda de mai sus poate fi îmbunătăţită prin calcularea 
succesivă a claselor de echivalență ale lui 1,12,14,18 etc. Dacă 
scrierea lui ] în baza 2 este ] = (a,2....4,)z, atunci 


= [2 10-a (1) 
Ai | 

În rezolvarea pe care o propunem, folosim calculul clasei 

de echivalență a lui B cu ajutorul indicatorului lui Euler. 
Fie K un număr natural şi S mulțimea numerelor natu- 
rale mai mici decît K și care sînt'prime cu K. Numărul ele- 
mentelor lui S$ poartă numele de indicatorul lui Euler al lui 
K și se notează cu q(K). O teoremă a lui Euler stabilește că: 


[U0=1 (mod K) pentru (1,K)=1 


Putem aplica această teoremă, deoarece prin înlocuirea 
valorii inițiale a lui 1 cu restul împărțirii acestei valori prin 
K, numărul obținut este încă prim cu K. 
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Fie ] = p(K)*L + Munde 0 <M-< e(K). Din teorema 
lui Euler rezultă că I == IM (mod K). Dacă presupunem că 
| < 231, atunci restul împărțirii cu K se poate calcula 
direct. | 

Funcţia ÎND calculează indicatorul lui Euler al uhui număr 
natural N. Funcţia IND. ia, inițial, valoarea 1 pentru că 





p---- 


Dal IND IND 





Fig. Dede 
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numărul 1 este, evident, prim cu N. Apoi se parcurg pe tînd 
numerele 2,3,...,N-l și în momentul în care ajungem la un 
număr prim cu N, mărim valoarea lui IND cu o unitate. Pen- 
tru a verifica că două numere naturale sînt prime, folosim 
algoritmul lui Euclid de aflare a celui îmai mare divizor 
comun. Schema logică apare în fig. 5.1. 


Programul principal constă din citirea numerelor î,J,K, 
în aflarea restului împărţirii lui 1 cu K, în aflarea numărului 
M care înlocuiește pe ] conform teoremei lui Euler și fa cal- 
culul direct al restului împărțirii lui IM prin K. 


EXERCIŢII 


1) Să se arate că putem reduce numărul variabilelor 
care âpâr în programul principal. 

2) Să se scrie un program pentru calculul restului împăr- 
țirii prin Kal lui U folosind scrierea în baza 2 a lui ] (ct aju- 
torul subrutinelor EU și MARY din programul nr. 6) și cal- 
culul claselor de echivalență modulo K ale lui 1,I2,14,... 

3) Fie K=7,1532...p,”3 descompunerea în factori 
primi a lui K. Atunci indicatorul lui Euler al numărului K 
poate îi calculat astfel: 


AK) = K+ [UI — 1/29 


Să se scrie o funcţie cu numele INDI1 care să calculeze indica- 
torul lui Euler al lui K după formula de mai sus. 

4) Se observă că dacă valoarea redusă a lui I este Q sau 
1, calculele următoare sînt inutile, valoarea restului căutat 
fiind corespunzătoare O sau 1. Să se modifice programul prin- 
cipal, ţinînd seama de această observaţie, 


FUNCTION IND(N) 
INTEGER A,B,C,D 
IND=1 
Ni=N-1 | 
DO 1 1=2,N2 
A=N 
B=1 
4 C=A/B 
D=A-B*C 
"“TIF(D) 2,3 
| 5 IF(B.NE.1 
12 IND=IND+21 


FĂ o OANA ANR 


2 
$ aomo 2 


GOTO 4 
27 1 CONTINUE 
18 RETURN 
19 END 


READ(1,2)1,J,K 
2 PORMATI 3149 
I=I-1/K*K 
MI=IND (K) 
M=U-J/MINM1 
M2=I *aN 
M=M2-M2/K xK 
WRITE (3,4) I,J,M,K 
4 PORMAT( '414,îxx1,14,' CONGRUENT*,I4,' MODULO*,I4) 
END 


REZULTATELE PROGRAMULUI _: 
2**5952 CONGRUENT 1 MODULO 15 


(37) 
Co naawuau n 


PROGRAMUL &6 


Să se realizeze un program care să permwă trecerea unui 
număr natural dintr-o bază naturală în altă bază naturală. 


d d 
Pentru simplificare efectuăm trecerea de la o bază la 
alta prin intermediul bazei 19. 
Reprezentarea unui număr într-o bază o tacem cu ajuto- 
rul unui vector în care apar cifrele numărului în ordinea obiz- 
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nuită, aliniate -la dreapta. Poziţiile suplimentare din stînga 
sînt. completate cu zero. 

Subrutina ALG realizează trecerea unui număr scris în 
baza B și reprezentat de vectorul V cu NDIM componente la 
baza 10. 

Fie VnoiMVNDIM-1 -- - VaV.V, un număr scris în baza B. 
Pentru a-l trece în baza 19 este suficient să aplicăm for- 
mula 


N= V,+ Va* B+ Va+B2 +... + VNprmBNDIM-t 


folosind metoda descrisă la calculul valorii urui polinom 
într-un punct. 

Subrutina EU realizează împărțirea, întreagă între două 
numere naturale N și B scrise în baza 10. Cîtul este notat cu 
'Q iar restul cu R. Sînt satisfăcute relaţiile: 


N=B+Q-+R; 6<R-<B 


Subrutina MARY realizează trecerea unui număr N din 
baza 16 într-o bază naturală Bl. Rezultatul este scris în 
vectorul K unde, respectînd convenția de mai sus, cifrele 
sînt scrise în ordine naturală, aliniate la dreapta. Pentru 
aceasta facem următoatele calcule: 


N=Q(1)+B1+K (NDIM). 
Q(1) = Q(2)+B1 + K(NDIM-1) 


Q(1)=Q (1+ 1) + B1 + K (NDIM—I) 
Q( + 1) = 9*Bl + K(NDIM —1— 1) 
unde avem relaţiile 


N >Q(1) >082) >... >Q01 +1) >01+2)= 9 


ceea ce justifică faptul că, la un moment dat, obținem restul 
zero, moment în care întrerupem calculele, cifrele următoare 
din scrierea numărului fiind egale cu zero, lucru deja reali- 
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5 — Programe în limbajul FORTRAN 


zat, deoarece la începutul subrutinei toate componentele 
vectorului K au fost egalate cu zero. 

Înmulţind a doua relaţie cu Bi, a treia relaţie cu BI: 
etc., adunînd relațiile obținute și făcînd reducerile, ajungem 


N == E(NDIM—De BI! +...+ K(NDIM—1) + B1 + K(NDIM) 


egalitate care ne arată că, într-adevăr, resturile obținute sînt 
cifrele care alcătuiesc scrierea lui N în baza BI]. 

Facem observaţia că dimensiunea NDIM a vectorului 
K trebuie să fie suficient de mare pentru a putea memora 
toate cifrele în urma şchimbării bazei. 

Schema logică este prezentată în fig. 6.1. 

Programul primcipal are ca obiect trecerea unui număr 
scris în baza B și reprezentaţ prin vectorul K la corespon- 
dentul său în baza Bl. Pentru aceasta, numărul iniţial este 
mai întîi scris în baza 19 prin executarea subrutinei ALG, 







I=242, e e e sNDIM 


$— 








„ Serie K,B,B1 


a 
LS 





K(NDIM-I+2)=R 
AM E | 
I=I+1 





Tie Ge1e Dig, 2, 


apoi rezultătul este trecut îi baza BI folosind subrutină 
MARY. Cele trei valori sînt scrise la imprimantă. Schema 
logică apare în fig. 6.2. 


EXERCIŢII 


1) Să se scrie un program care să alcătuiatcă tabla înmul- 
țirii în baza 8. Rezultatele vor fi îitscrise într-o: matrice M 
cu trei dimensiuni; rezultatul înmulțirii cifrelor | şi ] din 
baza” 8 va fi înscris în elementele MU+I1, ]J+1, 1) şi 
MI+ 1, + 1,2). 

2) Facem urmăţoarele, modificări: 

În programul principal introducem instrucțiunea: 
COMMON /K1/K 
și în instrucţiunile CALL care apăr păstrăm numai primele 
două argumente, 

În subrutina MARY îihtrodiicetii instrucțiunea: 
COMMON /K1/K 
iar în subrutina ALG introducem itttrucțitihea: 


COMMON /K1/V 
În ambele instrucţiuni SUBRUDUTINE păstrăm numai primii 
doi parametri. 

Conduc aceste modificări la um ptogram echivalent? 

3) În subrutina MARY se începe cu atribuirea valorii & 
tuturor componentelor vectorului K, pentru ca la părăsirea 
subrutinei elementele nemodificate de calculele ulterioare 
să aibă valoarea $. Să se modifice subrutina astfel încît 
elementele lui V care nu primesc valori ca urmare a schim- 
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w .. 


bării bazei să capete valoarea % la sfîrşitul executării acestei 
subrutine, 

4) Instrucţiunile 9 și 13 din subrutina MARY au același 
conținut. Cum putem elimina una dintre ele? 


SUBRQUTINE EU (N,B,Q,R) 
INTEGER B,Q,R 

Q=N/B 

R=N-Q*B 

RETURN 

END 


SUBROUTINE MARIN, B1,K,NDIM) 
INTEGER B1,Q,R 
DIMENSION R(NDIM) 
DO 1 1=1,NDIM 
1 K(1)=5 
I=1 
13 CALL EU(N,B1,Q,R) 
IF(Q.EQ.5) GOTO 18 
K (NDIM-I1+1)=R 
N=Q . 


Bo ozowzunvp O pă 0 joi 


ll I=I+1 

12 GOTO 15 

13 18 K(NDIM-I+1)=R 
RETURN 


15 END 


SUBROUTINE AIG(V, B,N,NDIM) 
INTEGER V(NDIM) ,B 
N=Vv(1) 
DO 1 I1=2,NDIM 
pi N=N*B+v(1). 
RETURN 
END 


INTEGER B,Bl K (9) 
READ (1,4) K, 8, Bl 

4 FORMAT(1911,2X,11,2X,11) 
WRITE(3, 5) K,B BI” 

5 FORMATI! Adi, 214) 
CALL ALG(K,B,N, 14) 
WRITE(3, 6)N, 

6 FORMAT( 1. ;119) 

CALL MARY (N,B1,K,19) 

13 WRITE (3, 9)K 

Și 9 FORMATI! 41811) ” 

12. STOP 

15 END 


REZULTATELE PROGRAMUIAUJI _: 
Ş00dag1325 5 6 
9030400553 


WOOD AMaWIWDR  IMBULUVH 
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PROGRAMUL 7 
Să se găsească soluția generală a unei ecuații diofantice. 


Ecuațiile diotantice sînt ecuaţii de forma: 
A+*X + B+Y = C 


unde A, B și C sînt numere întregi; numim soluție a unei 
astfel de ecuații două numere întregi care înlocuite î în locul 
lui X respectiv Y să verifice ecuația de mai sus. 

Se demonstrează ușor că o ecuaţie diofantică are soluții 
dacă și numai dacă cel mai mare divizor comun al nume- 
relor A și B este și divizor al lui C, iar dacă ecuaţia admite 
o soluție, atunci ea admite o infinitate de soluții. 

Dacă C = 8 spunem că ecuaţia este omogenă și, în acest 
caz, soluția generală a ecuaţiei este dată de formulele: 


X=— — B=+T Y — A=T 


unde T este un număr întreg oarecare iar A și B sînt prime 
între ele (dacă inițial nu sînt prime între ele, se înlocuiesc 
aceste numere cu cîturile obținute prin împărțirea lor prin 
cel mai mare divizor comun al lor). 

Dacă CF O spunem că ecuaţia este neomogenă și în 
acest caz, dacă (X,, Y,) este o soluție particulară a ecuației 
neomogene iar (X,, Y,) este o soluţie oarecare a ecuaţiei 
omogene corespunzătoare, atunci și (X, + Xp Yot+ Y.) este 
soluție pentru ecuaţia neomogenă. În plus, orice soluție a 
ecuației neomogene se poate scrie sub această formă. 


Pentru găsirea unei soluții particulare a ecuației neomo- 
gene, se scrie cel mai mare divizor comun al numerelor 
A și.B sub forma: 


D=-M+A-+N+B 


unde M şi N-sînt numere întregi. Această scriere rezultă 
din algoritmul lui Euclid în care se fac împărțiri succesive 
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pînă se obține un rest egal cu zero. Dacă se împarte restul 
R+_2 la restul R,_, obținîndu-se cîtul Q, și restul R,, putem 
scrie relația: 


R, 2 = QR + R; k=9,1,... 
unde R,=Ași R,=B. Din această relaţie rezultă: 
R; = Ra — QR | 
Dacă R, = M,*A-+N,+B (unde M, = 1,N. = 0,N,= 
= 1 și M_ = 9) din relaţia de mai sus rezultă relaţiile: 

M, = Mia — Qa * Mea N, = Nuca — Ga e Na 
care ne perriiit să calculăm recursiv pe M, şi N, (£ = 1,2,3, 
...) pînă cînd 56 obține ultimul rest diferit de zero. După 
ce aim exprimat linear pe D în funcție de A și B, o soluție 
particulară a ecuației neomogene este: 
și deci seliiția generală a ecuaţiei neomogene este: 

X = % + B/D+T Y=Y —A/D=+T 
unde T este orice număr întreg. 

Subprogramul DLIN calculează numerele M și N din 
exprimâăreă lui D în funcție de A şi B. Schema logică este' 
dată în fig. 7.1. Pentru a nu se schimba valorile lui A și 
B în cadrul subprogramului, se folosesc variabilele E și F; 
IQ și D reprezintă cîtul şi respectiv restul unei împărțiri, 
iâr M și N, respectiv MM și NN reprezintă coeficienții din 
exprimarea, liniară a ultimelor două resturi în funcție de 
A şi B. 

Prograinul principal găseşte tipul ecuaţiei și calculează 
soluția generală a ei. (dacă există). Schema logică este dată 
în fig. 7.2. Toate variabilele cu care se lucrează sînt varia 
bile întregi. aa 

Cu acest program am rezolvat următoarele trei ecuaţii: 

225*X -+ 15Y = 21 

144xX — 84:Y = 60 și 
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EXERCIŢII 


1) Folosind instrucțiurile FORMAT din programul prin- 
cipal, apar uneori la imprimantă expresii de forma + — ... 
Cum se poate face.să apară. un singur semn și nu două semne 
consecutive? | 

2) Ce schimbări trebuie făcute pentru a apare la impri- 
mantă și ecuația care se rezolvă? 


START |) 


Citeşte A,B,C | 


ODIN 


% 


R=MsA+N*B 


RETURN) Goe — X=8/R 
-_X==A/R 


2 
Ș 


E=F 
F=D 
IV=MM Da 





MM=M 
 MaIV=IQ aut 
IV=NN 
NN=N 
N=IV-IQ*N 


| "TOS=C/Ru * 
' TIOS=B/R 
JQS=C/R*N 
JJOS=-A/R 







e 








„/ Scrie ICs, 
IICS,JCS șUJCS | 
Fig, 7ole | 


STOP 


Serie: ECUATIA 
NU ARE SOLUTII 


Fig. 7.2 


bă SUBROUTINE DLIN(A,B,M,N) 
2 INTEGER A,B,E „PDM, NN 
3 M= 

4. N=1 

5 MM=1 

6 NN=5 

1 EzA 

8 F=B 

9 8 IQ=E/F 

15 D=E-IQ*F 
11 IF(D.EQ4:4) RETURN 
12 E=F 

13 F=D 
14 I1V=MM 

15 MM=M 

16 M=IV-IQ*M 

17 IV=NN 

18 NN=N 

19 N=IV-IQ*N 

29 GOTO 8 
21 END 

1 INTEGER A Ba C,R,Xt 
2 READ (1, 2)4 BC 

3 1 PoRMAn 514) 

4 CALI, DLIN(A,B,M,N) 
5 R=M*A+N *B 

6 IF(C.EQ.9) GOTO 2 
7 IF(C-C/R*R)3, 4,5 

8 2 -X=B/R 

9 ==A/R * 

15 WRITE (345)%, Y 
11 5 PORMAT( LITA Y=1 14,0) 
12 STOP 


13 3 WRITE(3, 6) 
14 6 FORMAT î * "ECUATIA NU ARE SOLUTII!) 


15 STOP 
16 4 ICS=C/R+M 

17 I1ICS=B/R 

18, JCS=0/ReN 

19 JJCS=- 

25 uRITE(3,1)105, II0S ,JCS,JJC3 

21 1 FORMATI? Xa l4, + 4, 7074, Tq1at) 
22 STOP 

259 END 


REZULTATELE PROGRAMULUI _: 
ECUATIA NU ARE SOLUTII 
X= 15+ —7*D Y= 25+ =d2*7 
da 3uT Y= 14*7 


PROGRAMUL S8 


Să se reprezinte matricele rare sub o Jormă care să realizeze 
Economie de memorie şi să se scrie un program care permile 
adunarea a două matrice reprezentate în modul ales. 


Precizăm întîi că înțelegem prin matrice rară o matrice 
ale cărei elemente sînt în marea lor majoritate egale cu 
zero. Reprezentăm o astfel de matrice folosind doi vectori: 
un vector cu componente întregi care memorează poziţiile 
din matrice care sînt ocupate de numere nenule și un vec- 
tor cu componente reale în care sînt trecute în aceeaşi ordine 
valorile elementelor nenule ale matricei. Poziţia elementu- 
lui de pe linia | și coloana J] a matricei este reprezentată. . de 
numărul (J—1)N +1 unde N reprezintă numărul de linii 
al matricei considerate. 


Subrulina MAT are ca scop reconstituirea liniei L din 
matricea inițială, plecînd de la informaţia conținută în pe- 
rechea de vectori (IP, Z) care reprezintă această matrice, 
Pentru aceasta toate elementele vectorului RJ, care în final 
va conține linia L, sînt inițializate cu valoarea %. Sînt anali- 
zate apoi pe rînd numerele conținute în vectorul IP. De 
fiecare dată cînd se ajunge la un număr care este L plus 
un multiplu de N, informația conținută de elementul cores- 
punzător din vectorul Z este trecută în vectorul RJ pe o 
poziție ce se determină prin calcul. Schema logică este re- 
prezentată în fig. 8.2. 


Programul, principal începe cu citirea perechilor de vec- 
tori (IN, X) și (IM, Y), care reprezintă două matrice rare 
avînd ordinul 5. Matricele respective sînt reconstituite linie 

cu linie cu ajutorul subrutinei MAT și sînt tipărite. 

Rezultatul adunării celor două matrice este reprezentat 
în perechea de vectori (IP, Z). Deoarece vectorii IN și IM 
au respectiv dimensiunile 6 și 8 și deoarece este posibil ca 
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(_START) r 
| 
, | 
d, | 
] 
Ț 
| | | 
i | 
| X,6,L,RJ,5, IP(K)=IM(3) 
i ( | 2(K)=t0(9) 
| K=K+1 
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Şig. 8.1, 
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mulțimile formate din elementele celor doi vectori să fie 
disjuncte, trebuie ca IP și Z să aibă lungimea egală cu 14. 

În continuare vectorii IN și X sînt copiaţi în primele 6 
componente ale vecțorilor IP și Z. Apoi sînt parcurse pe rînd 
elementele vectorului IM. Dacă un element IM(J) al acestui 





Da 


IP (4) =p 


e 
| 
j 
| 
| 
] 
i 
| 
1 
| 
] 
i 
"14 Da 
| 
) 
| 
| 
i 
| 
i 
i 
| 
| 
| 
LD 


RETURN 
Nu 
"K=IP(M)-L 





aaa — AER 
ML 


RJ (K)=2(M) 


fig, 8.2, 


vector este egal cu un element al vectorului IN (fie el IN(1)), 
valoarea lui Z(1) este modificată prin adăugarea lui Y(]), 
trecîndu-se apoi la elementul IM(J + 1). În caz. contrar, 
prima poziție necompletată din Z primeşte valoarea Y(J), 


iar poziția, corespunzătoare din IP primește valoarea IM(]); 
apoi se trece la elementul IM(J + 1). În final, eventualele 
poziții necompletate din vectorii Z şi IP sînt făcute egale cu 
zero. Matricea sumă este reconstituită cu ajutorul subruti- 
nei MAT și este tipărită. | 

Schema logică a programului principal apare în fig. 8.1. 


1 SUBROUTINE MAT(IP,Z,KI,L,RJ,N) 
2 DIMENSION 1P(K1),2(KI) 'RJ(N) 
3 DO 19 M=1,N . 
4 19 RJ(M)=5 
5 DO 25 M=1,KI 
6 IP(IP(M) „EQ.9) RETURN 
7 K=1P(M)-L 
8 IF(K-K/N+N.„NE.5) GOTO. 27 
9 K=IP(M)/N+1 
19 IP(L.EQ.N) K=K-2 
11 RI (K)=2(M 
12 20 CONTINUE 
13 RETURN 
14 END 
2 DIMENSION IN(6),X(6),1M(8),Y(8),1P(14),Z(14),RJ(5) 
2 READ (1,1) IN,X,IM,Y 
3 2 FORMATI 612, 6F4,2,812,7F4,2/F4.2) 
4 WRITE(3,111) | | 
5 111 FORMAT(! *,7X,'ADUNAREA A DOUA MAPRICI RARE!'/'4') 
6 DO 18 1=1,5 . 
7 CALL -MAT(IN,X,6,L,RJ,5) 
8 18 WRITE(3,25)RJ | 
9 25 PORMAT(* ',5(F6,2,3X)/'9') 
15 WRITE (5,7) 3 
11 7 FORMAT( '9') 
12 DO 54 L=1,5 
13 CALL MAT(IM,Y,8,L,RJ,5) 
14 54 WRITE(3,25)RJ 
15 DO 3 1=1,6 
16 IP(I)=IN(I) 
17 3 Z(I)=X(I) 
18 K=7 
19 DO 4 J=1,8 
2g DO 5 I=1,6, | 
21 IF(IM(J) ,NE.IN(I)) GOTO 5 
22 2(1)=2Z(1)+Y(J) 
23 GOTO 4 
24 5 CONTINUE 
25 2(K)=Y(J) 
26 IP(K) =IM(J) 
27 K=K+1l 
28 4 CONTINUE 
29 DO 6 1=K,14 
35 IP(1)= 
31 6 Z(1)= > 
32 WRITE (5,7) 
33 DO 55 1=1,5 
34 CALL MAT(IP,2,14,L,RJ,5) 
36 STOP 
31 END 
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EXERCIŢII 


1) Fie A o matrice rară cu M linii, N coloane și avînd 
K elemente diferite de zero. Să se determine K în funcție 
de M și N astfel încît reprezentarea propusă să realizeze econo- 
mie de memorie. 

2) Să presupunem că dorim ca cele două matrice inițiale 
să apară la imprimantă scrise alăturat. Cum putem realiza 
acest lucru folosind numai vectorii IN, X, IM, Y și RJ și vari- 
abila L? 

3) Pot fi înlocuite instrucțiunile 7 și 8 din subrutina 
MAT cu:  IF(IP(M) — IP(M) / N+N.NE.L) GOTO 20? 

4) O altă posibilitate de memorare a poziției în matrice 
a unui element A(I, ]) diferit de O este memorarea valorii 
180+1 + J. Presupunînd că folosim această variantă, se 
întreabă ce modificări trebuie aduse programului princi- 
pal și subrutinei? 


REZULTATELE PROGRAMULUI _t 


ADUNAREA A DOUA MATRICI RARE 


5. 2.3 9.3 3.45 5.96. 
36.59 2.3 42.62 ș.5 9.82 
2.9 "9.5 9.5 7.5 5.5 
2.2 2.3 9.9 1.84 2.5 
4.5 9.3 2.8 2.8 2.5 


16.94 32.975 9.5 82.195 5.5 


B.D 12.57 9.5 O 9.9 2,22 
p.5 0.5 O O15.82 Oua 
| D.5 9.0 O 56.78 9.5 2.5 
A po 0 750 so 2.3 
16.93 32.95 5.5 85,55 5.96 
36.5 12,57 O 42.62 0.5 OO 12,94 


5.5 DD Oe O—15.82 2.5 
2.9 9.5 56.78 1,84 9.5 
9.5 9.5 7.50 9 5.3 
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PROGRAMUL 9 


Să se găseasță o reprezentare a matrițelor simetrice care 
să permită realizarea unei economii de memorie. Să se scrie 
un program pentru adunarea şi înmullirea a două matrice sime- 
frică scrie în reprezeniarea aleasă. 


Este evident fapțul că o matrice simetrică de ordinul 
N este bine determinată dacă pentru fiecare coloană 1 se 
cunosc numai elementele AC, TD), A(I + 1,0),..., A(N,I). De 
aceea, în loc de a păstra întreaga maţrice în memorie, for- 
măm un vector X care conține în ordinea coloanelor elemen- 
tele, dețerminate ca mai sus, pentru fiecare coloană. Vec- 
torul X conține N(N +- 1) / 3 elemente; deci folosirea aces- 
tui vector în locul matricei iniţiale permite realizarea unei 
economii de memorie. 

Fie JI. Dintre elementele primelor J — 1 coloane 
sînt memorate în X un Pui de N + (N—1)+...+ 

+ (N+2— D= (0N-+ ) | — 1) /2 elemente. Deci 
elementul A(I, ]) se află pe SĂ (2N + 2 — ))(J—1)/ 
2 arata AI cet pe pri DS 

Funcha PROD calculează produsul scalar a doi vectori 
X și Y cu cîte N componente. 


Subrutina. LINIE reconstituie linia L a matricei inițiale 
plecînd de la informația conținută, în vectorul X. Pentru 
fiecare M (| < M << N) se calculează W(M) cu ajutorul 
formulei de mai T: (ținând seama înşă că formula este vala- 
bilă pentru ] < I); în final W va conţine linia e matri- 
cei. reprezentate de vectorul X. 


Programul princibal începe cu citirea vectorilor X și Y 
care constituie reprezentarea a două matrice simetrice. 
Aceste matrice sînt reconstituite pe rînd cu ajutorul subru- 
tinei LINIE; de fiecare dată cînd este reconstituită o linie, 
ea este tipărită, 
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Se trece apoi la adunarea matricelor. Se vede ușor 
că pentru aceasta este suficient să adunăm vectorii X și Y 
și să reconstituim linie cu linie matricea sumă cu ajutorul 
subrutinei LINIE, plecînd de la vectorul Z care memorează 
suma vectorilor X și-Y. 


Pentru obținerea produsului matricelor sînt reconstituite 
liniile ] din matricea reprezentată de vectorul X și ] din ma- 
tricea reprezentată de vectorul Y. Cele două. linii sînt înmul- 
țite scalar cu ajutorul funcției PROD și rezultatul este înscris 
în poziția corespunzătoare din vectorul Z care memorează 
reprezentarea produsului. Aceste calcule sînt efectuate 
pentru Î, J <41,2,...5i cul << ]. După ce vectorul Z a fost 
construit, matricea reprezentată de el este reconstituită 
prin folosirea. subrutinei LINIE și este tipărită. 


Schema logică apare în fig. 9.1. 


EXERCIŢII 


1) Se întreabă dacă instrucțiunea funcție din subrutina 
LINIE poate fi scrisă sub următoarea formă: 


K(,J) = (0+N—)*U—DP2 +1 


modificîndu-se corespunzător și referirile făcute la această 
instrucțiune. 


2) Fie X un vector cu NN componente care constituie 
reprezentarea unei matrice simetrice de ordinul N. Fie KE 
(1,2,...,„NNȚ. Să se scrie o subrutină care să calculeze poziţia 
în matrice a elementului X(K), 

3) Să se scrie um subprogram funcție pentr calculul 
urmei unei matrice simetrice reprezentată de un vector X 
cu NN componente. Amintim că se înțelege prin urma unei 
matrice suma elementelor care formează prima diagonală. 
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O DI NW.AVIN bi E So DaNWaUvH INI LU N hi 


FUNCTION PROD CX Y, N) 
REAL X(N),I(N) 
PROD 1 


DO 1 I=1,N , 
1 PROD=PROD+X (1) xX (1) 
RETURN 
END 


„SUBROUTINE LINIE (X,N,L,NN,w) 
REAL X (NN) .W(N) 
K(N,I,d)= =( Za) x(d-1)/201 
DO 1 M=1 
1 UCK, L,M)) 
IF (L.EQ N ) RETURN 
Isla 
DO 2 M=L1,N 
2 Cu) GL) 
RETU 
END 


REAL X (19) Y (19) z(15) 2W(5) „W1(5): 
K(1,J)= (ID) e(d- 1)/2+ 
READ (1 DX, 
51 FORMA Zap 2)) 
WRITE (3,1) 
1 FORMATI! PRIMA MATRICE ESTE") 
DO 3 Lz1,5 
CALL LINIE (X, 5,1,15,W) 
3 WRITE (5, 4)W 
4 FORMAT(! * „5F19.2) 
WRITE (3 52 2)! 
2 PORMAT(! A DOUA MATRICE ESTE!) 
DO 5 L=1,5 
CALL vInta(r, 5,L,15,W) 
W 


6 2(1)=X(1)+f(1) 
WRITE (3,8) 
8 FORMAT(! SUMA MATRICILOR ESTE!) 
DO 7 L=1,5 
“CALL LINIE (7,5, 359 L,15,W) * 


12 FORMAT! PRODUSUL MATRICILOR/ESTE!! 
DO 11 1=1,5 
DO 11 J=I, 5 
CALL LINIE (x, 5,1,15,W) 
CALL LINIE (Y, 5, JI, 15, 'W1) 
11 Z(K(J,1))= PROD (W, W1, 5) 
DO 9 1= 1,5 
CALL LINIE(Z, 5,L, 15, W) 
9 WRITE (3, »4)w 


END 
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PRODUSUL MA TRICILOR ESTE Su 
5402.20 3424.22 6587.31 7847.32 4557.19 
3424,22 8557.69 15523,75 5475.55 9795.91 
6587.51 15523.75 14113.65 9787.64 1095317 .81 
1849.32 5475.55. 9787.64 5139.99 
4557.19 9993.91 19937.81 5179 :24 10371: 83 


PROGRAMUL 10 


Știind că o ecuahe de forma f(x) = O are o rădăcină şi 
numai una în intervalul [a,b] și că f este continuă pe acest 
interval, să se găsească această rădăcină cu o aproximalie € 
dată, 


Dacă f este continuă pe intervalul [&, b] şi are o singură 
rădăcină (simplă) în acest interval, atuiici la câpetele inter- 
valului f are semne contrare. Pentru aflarea apfoximației 
rădăcinii vom folosi, în același timp, metoda, coardei şi me- 
toda înjumătăţirii intervalului, pe care le vom descrie pe 
scurt în cele ce urmează. 
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Deoarece f(a)*f(b) < A, dreapta ce unește puncţele 


A(a,f(a)) şi B(0,/(8)) intersectează axa 0 în punctul de ab- 
scișă 


b—a 

= A — sefia 

4 Tina) YI 
*, eşte un număr cuprins între a și b şi reprezință o primă 
aproximare a rădăcinii ecuaţiei. Această aproximare se 
poațe îmbunătăți aplicînd aceeași metodă pe intervalul 
a, 2] dacă f(a)+f (x) < fĂ sau pe intervalul [z,, b] în caz 
contrar. Aplicînd acest procedeu de mai multe ori, se poate 
găsi o aproximație pricît de bună a rădăcinii ecuaţiei. Aceasţă 
mețodă, poarță numele de metoda coardei. 

Aproximarea rădăcinii ecuaţiei se poate face și în felul 
următor: fie c mijlocul intervalului (4, 8], atunci rădăcina se 
află în intervalul [a, c] dacă f(a)*f(c) < 8 şi în intervalul 
[c, d] în caz contrar. Se ia din nou mijlocul intervalului găsit 
şi se determină intervalul în care se găsește rădăcina şi așa 
mai departe. Dacă b—a =, după n pași, lungimea interva- 
lului este de 1/2”, deci pentru un 4 suficient de mare obținem 
un interval de lungime oricît de mică. Unul din capetele 
intervalului poate fi luat ca aproximaţie a rădăcinii ecuaţiei. 

În metoda combinată şe calculează atît punctul x, de 
intersecţie al coardei, ce unește punctele de pe curba cores- 
punzătoare capetelor intervalului cu axa 0x, cît și punctul 
x, mijlocul intervalului. Se determină apoi în care din cele 
trei intervale determinate de punctele a,x,,%.,b se află rădă- 
cina ecuației și se continuă procesul pînă. cînd mărimea inter- 
valului devine: mai mică decît e în care caz valoarea aproxi- 
mativă a rădăcinii ecuaţiei este unul din capetele intervalului. 

Subprogramul RADC calculează valoarea aproximativă 
a rădăcinii ecuației. Schema logică este dată în fig. 10.1. 
Variabila K indică dacă s-a calculat sau nu rădăcina după 
cum are valoarea 1 sau respectiv 9. Al şi B1 sînt capățul din 
stînga, respectiv din dreapta, al intervalului unde se găsește 
rădăcina, iar A2 şi B2 sînt valorile funcției pentru aceste 
puncte. 

Dacă A2+B2 > 8 nu se poate găși rădăcina prin această 
metodă. Dacă A2+B2 = 9, unul din capetele intervalului 


La 


G* 


este rădăcină. Dacă A2+B2< 4 se calculează XI și X2 
(aproximațiile obținute prin metoda înjumătăţirii și cea a 
coardei) şi XII şi X21, care sînt valorile funcţiei în aceste 
puncte. Dacă X2 < XI, se schimbă valorile XI și X2 între 
ele, precum și valorile corespunzătoare XIl și X21, pentru 
ca numerele Al, X1, X2, Bl să fie în ordine crescătoare. Se 
testează dacă soluția se află în intervalul (Al,X1] (adică 
A2+X11 < 98) și atunci lui Bl i se dă valoarea XI iar lui 
B2 valoarea XIl (dacă nu s-a obținut deja aproximaţia 
dorită) și se fac din nou calculele arătate anterior. Dacă 
soluţia nu se află în intervalul (Al, X1] se testeazăbiacă solu- 
ţia se află în intervalul [X2, B1); în acest caz Al și A2 iau 
respectiv valorile X2 și X21 și se reiau calculele. Dacă 
rădăcina, nu se află nici în intervalul [X2, Bl) atunci ea se 
află în intervalul (X1, X2) și se fac toate modificările de la 
cazurile precedente. 

Functia F dă expresia funcției pentru care se calculează 
aproximarea rădăcinii. În cazul de față această funcţie este 

F(X) = X3—5*X+A4 

Programul principal calculează rădăcina ecuaţiei F(X) — 
— 8 din intervalul (.5,1.1) cu o eroare de 1(-1i. Deoarece 
funcția F apare ca parametru în instrucțiunea de chemare 
a subrutinei RADC ea trebuie declarată într-o instrucțiune 
EXTERNAL la începutul programului principal. Rezul- 
tatul obținut în urma executării programului a fost X = 
= 1.0900990. | 


EXERCIŢII 


1) Ce se întîmplă în cazul în care rădăcina se află în inter- 
valul (X1, X2) şi X2—X1 < e? Ce modificări trebuiesc făcute 
în schema logică și în subprogram pentru ca procesul să, ia 
sfîrșit? 


mul RADC? 
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K=1 
A1=A 
B1=B 

A2=F(A1) 
B2=F(B1) 


>P RETUEN 
<pg—(2) 
X1=(4A1+B81)/2 
X11=F(X2) 


X2=A1-(B1-A1) *A2/ (B2-A2) 
X21=F(X2) 





Fig, 18.1 


2 SUBROUTINE RADC (F,A,B,EPS,X,K) 
5 AI=A 
4 B1=B 
5 A2=FP(A1) 
.6 B2=F(B1) 
7 IP(A2+B82)1,2,3 
8 3 K=g 
9 RETURN 
15. 2 IF(A2.EQ.7) GOTO .4 
11 X=B1 
12 RETURN 
I5 X=A1 
14 RETURN 
15 X125.5*(41+B81) 
16 X11=F(X1) 
17 X2=A1-(B1-A1) *A2/ (B2-A2) 
18 X21=F(X2) 
19 IF(X2.GE.X1) GOTO 5 
25 X=X1 
21 X1=X2 
22 X2=X 
23 X=X21 
24 X11=X21 
25 X21=X 
26 IFP(A2*X11)6,7 
27 IF(X1-A1, La" 855) GOTO 7 
28 Bl=X1 
29 B2=X11 
35 GOTO 1 
51 7 X=X1 
32 RETURN 
33 8 1F(B2+xX21)9,19,11 
34 9 IF(B1-X2, LT.EP8) GOTO 19 
E Al=X2 
36 A2=X21 
37 "GOTO 1 
a X=X2 
59 RETURN 
45 AI=X1 
qi A2=X11 
2 B1=X2 
45 B2=X21 
44 GOTO 1 
45 END 
2 FUNCTION F(X) 
2 F=Xx*3-5DrX+4,P 
3 RETURN 
4 END 
1 EXTERNAL F 
2 CALL RADC(F,9.5,1,1,9.15-19,X,K) 
3 IP(K.EQ. 2 SOTO 1 
4 WRITE(3,2 
5 2 ELA S(55ă ek= 79.5) 
So Rane(3,3) 
1 WRITE | - 
î 3 poRmani! FUNCTIA ARB ACELASI SEMN LA CAPETE!) 
9 STOP 
15 END 


REZULTATELE PROGRAMULUI _:. | 
X= 1,92099 


PROGRAMUL Il 


Să se facă subprograme pentru operații cu polinoame dea 
variabilă cu coeficienți întregi. 


Un mod de reprezentate în merioriă câlculâtorului a poli- 
noamelor cu coeficienți întregi este următorul: primul ele- 
ment al unui vector memorează gradul N al polinomului, 
componentele A(2), A(3),...,„A(N + 2) ale vectorului memo- 
rează coeficienții polinomului în ordinea, crescătoare a pute- 
rilor, A(N + 3) poate să memoreze dacă coeficienţii polino- 
mului au fost înmulțiți cu un număr întreg sau nu și cu care 
anume, și eventual, A(N + 4) memorează dăcă coeficienții 
au fost împărțiți cu un număr întreg și cu care anume. 


De exemplu, polinomul 
3x3 — 732 4+ 2x —] 


este memorât în fig. 11.1.a). Dacă în calcule este nevoie de 
acest polinom îrimulţit, cu 3, el apăre ca în fip. 11.1.b). Une- 
ori pentru a opera cu numere nai mici, coeficienţii polino- 
mului se pot împărți cu un număr întreg. De exemplu poli- 
nomul reprezentat în fig. 11.1.c) este de fapt polinomul 


Gu3 — 1432 4+ 44 —2 


A(N + 3) și A(N + 4) apar numai în cazul cînd ne sînt nece- 
sari într-un prograni sau subprogram. Toate programele care 
urmează presupun reprezentarea polinoamelor sub forma de 
mai sus. 

a) Suma a două polinoame se îace în felul următor? gradul 
polinomului sumă este cel mai mare dintre gradele polinoa- 
melor, iar coeficienţii lui sînt suma coeficienţilor celor două 
polinoame pentru gradele mai mici sau egale cu cel mai mic! 
dintre grade, restul coeficienţilor fiind identici cu cei ai poli- 
nomului de grad' mai mare. 
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A(1)  4A(2) 





IC(1)=18(1) 
NI=IA (1)+2 


| pai 1=2 3. ceșNl 


L—] 9 Ă * 
IC(I)=IA(1)*I8(1)] 


Mom 


NI=NI+I 
N2=IB(1)+2 


Po EENI NI, e ne „N2 
LIC(1)=IB(1) 
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A(3) AA) AȘ) 


Fig. 11,1 


ICC =TA(1) 
NI=IA(1)+2 


l 


IC(I)=IA(1)+IB(1) 


L__— — 


| 


Fig, 11.2 


A(6)  A(7) 





CIC (STAI) 
NI=IB(1 +2 


IC(I)=IA(I)+IB(I) 


122,33 eceaNl 


| 
| 
| 
L 


Nl=N]+1 
N2=IA(1)+2 


I=N1,N1+1, e. ,N2 


IG(I)=TA(I 


Subprogramul SUMP calculează suma polinoamelor IA 
și IB, rezultatul fiind obţinut în IC. Schema logică a acestui 
subprogram este dată în fig. 11.2. Trebuie să remarcăm 
faptul că, în urma activării acestui subprogram, valorile 
lui IA și IB rămîn neschimbate. 

b) Î umuliirea unui polinom cu un număr. Dacă numărul 
cu care vrem să înmulțim polinomul este K și el este diferit 
de O, atunci gradul: polinomului rămîne același, iar coefi- 
cienții polinomului se înmulțesc cu K. Dacă K = , atunci 
gradul polinomului devine ( ca şi toți coeficienții polinomu- 
lui (de fapt numai primul coeficient trebuie făcut 9). 

Subprogramul INMPN realizează acest calcul. Schema lo- 
gică a lui este dată în fig. 11.3. IA este polinomul care se în- 
mulțește cu numărul K iar rezultatul este trecut în IC. Valo- 
rile lui IA și K nu se modifică în urma executării subprogra- 
mului. 


c) Înmulțirea unui polinom cu un monom. Dacă înmulțim 
polinomul IB+XL cu L3> 6, atunci, mai întîi, se înmul- 
țește polinomul cu IB folosind subprogramul INMPN, se 
deplasează coeficienții spre dreapta cu L locaţii, după care 
se umplu cu ( locaţiile rămase libere. 


Subprogramul INMPM realizează operaţiile descrise mai 
sus. IA este polinomul pe care îl înmulțim cu IB+ XL iar 
rezultatul se obține în vectorul IC. Schema logică este dată 
în figura 11.4. Ordinea în care se deplasează, elementele este 
de la dreapta la stînga deoarece dacă am începe cu deplasarea 
lui IC (2) s-ar suprapune unii coeficienți, deci am ajunge la 
rezultate eronate. Valorile lui IA, IB și L nu se schimbă 
în urma executării subprogramului. 


d) Înmulțirea a două polinoame se face în felul următor: 
IA și IB fiind polinoamele care se înmulțesc iar IC fiind pro- 
dusul celor 'două polinoame, la început, toţi coeficienții lui 
IC sînt făcuți O; se înmulțește apoi IA cu un monom al poli- 
nomului IB și rezultatul este adunat lu IC. Calculele se fac 
pentru toate monoamele polinomului IB. 
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 IO(I)zI 
NIzI 





A(1)+I8(1)] 
C(1)+a | 


IC(1)=IA(1) 
N=IA (1)+2 






IOD) =IACI) + 









|_TApIB(I+ 1) ID 







INMPN. 
IA, IB, IC 









ICţ2) =TA(1)+b 
Ni=IA (1)+2 


IG(N1-1+2+1)=1C (N1-1+2) 


Lo ZI 
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Subprogramul INMPP face înmulțirea celor două poli- 
noame. El folosește subprogramele INMPM și SUMP descrise 
anterior. Se folosește un vector de lucru ID. Am presupus 
că polinoamele nu au grâdul mai mare decit 98 şi de aceea 
am alocat 190 de locaţii de memorie penttu ID. Schema lo- 
gică a subprogramului este dată în fig. 11.5 


e) Împărțirea a două polinoame. Algoritmul de împărțire 
este următorul: la început, în locul restului se trece deîm- 
părțitul. Dâcă gradul deîmpărţitului este mai mic decît 
gradul împărțitorului atunci cîtul este DB și algoritmul se 
termină, Dacă gradul deîmpărțitului este mai mare sau egal 
cu gradul împărțitorului, gradul cîtului este diferența 
celor două, grade iar coeficienții se găsesc îti felul următor: 
se caută cel mai mare divizor comun al coeficienţilor dt grad 
maxim âl „restului“ și împărțitorului; se înimulțesc restul și 
cîtul cu acest număr şi, apoi, din rest se scade împărțitorul 
înmulțit cu mononiul obținut prin împărțirea termenilor 
de grad cel mai mare, care este: memorat în cît. Se proce- 
dează astfel pînă cînd grăâdul restului devine mâi mic decît 
gradul împărţitorului. Apoi, se micșorează gradul restului 
corespunzător priniului coeficient nenul întîlnit. 

Subprogramul DEN găsește cel mai mare divizor comun 
a două numere întregi | și | prin algoritmul lui Euclid. Rezul- 
tatul apare în variabila K. Schemă logică a acestui subpro- 
grafii este dată în fig. 116. 

Subprogramul IMPP face împărţirea polinoamelor IA 
și IB, cîtul fiind dat în I€ iar restul în IR. Mai este folosit 
și un vector de lucru ID care poate coriţirie cel mult 100 de 
componente. Algoritmul de împărţire a polinoamelor este 
cel descris mai înainte.. Schema logică este dată în fig. 11.7. 
IC(1) conținînd gradul cîtului, la început locația IC(IC(1) + 
+ 3) este făcută 1 și de-fiecare dată cînd se înmulțesc coe- 
ficiepții polinomului cu un număr se înimulţește și dceastă 
locaţie cu acel număr. În final, această locaţie conține numă- 
rul cu care trebuie să se împartă coeficienţii cîtului și restului 
pentru a obține cîtul și restul exact. Același număr este 
trecut din acest motiv și în locația IR(IR(1) + 3). 
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NI-TACIZ 


IR=IA 
K=IR(1)-IB(1) 


Da 
Nu 


IC(1)=K IC (1) = 
Kl=k+2 IC (2)=g 
K2=IB(1B8(1)+2) 













K5=K2/2 
IC (K1+1).=I1C(K1+1) «K3 


|___INMPN __ 
IC ,K3, IC 





NI1=ID(1)+2 
K=ID (2) 






|___INMEN _ 
R,K3, IR 


K=IR(IR(1)+2)/K2 
IC(IR(1)-18(1)+2)=K 


|_________INMPM_______| 
IBF, IR(I)-IB(1),ÎD 


|____SUMP__ 
TR, ID, IR 


IR(1)=IR(1)-1 


IR(1)7IB(21) 





Nu | 
€ Pipe 11.7 
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î) Cel mai mare divizor comun a două polinoame se cal- 
culează după algoritmul lui Euclid: se împarte un polinom 
la, celălalt, după aceea, se împarte al doilea polinom la restul 
obținut și așa mai departe. Ultimul rest, diferit de polino- 
mul nul, este cel mai mare divizor comun al celor două poli- 
noame. 


Subprogramul DCP calculează cel mai mare divizor comun 
al polinoamelor IA și IB, iar rezultatul este obținut în IC, 
Pentru aflarea celui mai mare divizor comun al polinoame- 
lor, mai este nevoie și de doi -vectori de lucru ID și'IE pe 
care i-am luat de 100 de componente fiecare. Schema logică 
a subprogramului este dată în fig. 11.8. Pentru copierea unui 
polinom în alt vector a fost folosit subprogramul INMPN 
de înmulțire a unui polinom cu un număr, numărul cu care 
se înmulțește polinomul fiind 1. 


La început, IA este trecut în ID și IB în IC; se împarte 
ID la IC restul fiind obținut în ID. Dacă gradul restului este 
zero, atunci algoritmul s-a terminat, rezultatul fiind IC 
sau | după cum ID,(2) = 8 sau nu. Dacă gradul lui ID 
nu este Q, se împart coeficienții lui ID cu cel mai mare divi- 
zor comun al lor pentru a lucra cu numere mai mici. Apoi se 
schimbă cele două polinoame IC. și ID între ele și se reiau cal- 
culele cu împărțirea polinoamelor ID și IC. Acest subprogram 
nu. schimbă valorile polinoamelor IA și IB. 


Subprogramul SCRIFE-=ste folosit pentru scrierea unui 
polinom de forma deşăe* a acest program.. În subprogram 
sînt preyăzute instrucțiti “de scriere pentru polinoame de 
gradul 0,1,2, și mai mare ca 2. Pentru a evita scrierea unui 
semn + după ce s-a.țerminat de scris polinomul, a fost folo- 
sită o variabilă B care ține un spațiu liber și care se 
seri€ înainte de fiecar&: seed. + care trebuie tipărit. Vaţia- 
bila A are rolul de a tipări, în faţa polinomului, 8 caractere 
alfanumerice în care se indică, eventual, ce semnificație. are 
polinomul. În programul principal, ca parainetru corespun- 


8! 


zător lui A se pun 8 caractere incliise între aposttofuri. 
Dacă numărul de caractere &ste mai mic dă 8, pot apare semne 
neprevăzute iar dacă strit mai mult de 8 câractere se păs- 
trează numâi primele 8. NI memorează gradul polinomului 
IA. 

Programul principal activează toate subprogramele dâ- 
scrise anterior. Se citesc polinoamele: 


P(x) = 33 — 632 + |lx — 6 Qi = 24 —2 


și apoi se calculează P(x) + Q(x), 3+P(x), P(x) + (-—-2)x2, 
P(2):Q(2), P(x): Q(x), cel mai mare divizot comun (P(x), 
Q()) şi cel mai mare divizor comun (36,24). La împărțirea 
polinoamielor, în cazul în care restul și cîtul au fost înmul- 
ţite cu un rumăr, este tipărit numărul cu care acestea tre- 
buiesc împărţite. 


EXERCIŢII 


1) În subprogramul SUMP, în cazul cînd polinoamele IA 
și IB au același grad, s-ar putea ca gradul sumei să fie mai mic 
decît gradul comun al celor două polinoame. Ce modificări 
trebuie făcute pentiu a stabili grâdul exact? 

2) 'În care din subprograme se poate obține rezultatul în 
until din polinoarnele date ca păr” ptrii de intrare? 

3) În subprogramul INMPM':2:poate înlocui IA(1) cu 
IC(1) în instrucțiunile a 5-a și a G-a? 

4) Dacă unii din coeficienții lui ÎB, în subprograinul 
INMPP sînt niili, niu“imăi trebultse cHemăte pent?fu ei sub- 
programele INMPM şi SUMP. Cutite realizează acest lucru? 


5) Să se scrie din nou subprogramul DCN eliminîndu-se 
instrucțiunile în plus. 
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6) Să se scrie un subprogram care să transforme un poli- 
nom cu coeficienţi reali în unul scris sub forma propusă în 
această problemă, cu coeficienţi întregi. Se va căuta ca acești 
coeficienți să fie cît mai mici înmulțind sau împărțind toţi 
coeficienții polinomului în mod convenabil. 


Ă DIMENSION IA (54) ,IB(54),I0 (55) 
2 READ (1,1)N, (TÂ (+1), I=1, N), IA (N+2) 
3 2 FORMAT (1016) 
IAC 
2 ea, „LN, (IB(I+1),1=1,N); IB(N+2) 
B( 
T CALL SUMP(IA,IB,IC) 
8 CALI, SCRIE(1P+Q= IC) 
9 CALI, INMPN(IA,3,IC) 
19 CALL SCRIE +3 *P= IC) 
11 CALL INMPM(IA ,-2,2 16) 
22 CALL SCRIE( 1_2Xax2xP „IC) 
13 CALL INMPP(IA ,IB,IC) 
14 CALI, SCRIE( 'PxQ=) IC). 
15 CALL, IMPP(IA 15,10, 205 
16 CALL SCRIE( "GI7UL IC) 
17 CALI, SCRIE( "RESTUL *'1D) 
18 LE IC (I0(1)+3) „EQ 1)90:70 3 
19 VRITE(Ș4)I0(IC (1) +3) 
25 4 FORMAT( * CITUL SI RESTUL TREBUIE IMPARTITE cy'* ;I5) 


21 3 CALL IL DONC26,24, I) 


22 WRITE(3 291 
23 a LOmuan( ÎZ0MMO AL NUMERELOR 36 SI 24 ESTE 12) 
24 CALL CELIA TEAC) 
25 CALL SCRIR('(P,9)a 1,10) 
26 STOP 
27 
REZULTATELE PROGRAMULUI ŞINT 4 

pP+Q= 8 + ]2xX + Sex 2 + uk 9 

N 
3+*P= -18 + 33%X +-18xkxx 2 + 3xku 3 


DXex2*P + *X + 10xXex 2 +-22x%mx 3 + lDmka 4 + Dre 5 
P*Q= 12 +=29xX + 17x%xx 2 + Deko 3 + Dax 4 + Lăme 5 
CITUL  =7+ 1xX 

RESTUL 06 + 20% 

CMMDC AL NUMERELOR 36 SI 24 ESTE 12 

(Pa sie 1 
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PANU RUN ki 


SUBROUFINE. IMPP( ZA, 18,11 

DIMENSION IA(1),IB(1) 

NI=1A(1)+2 

DO 1 I=1,N1 

IR(I)=IA(1) 
K=IR(1)-IB(1)_ 

IF(K GE+9). GOTO 2 


Sa 


[1] 
= 
m a 
l 
_ 
hf 
LI) 


=K+2 
K2=IB(1B8(1)+2) 
DO 8 1=2,K1 
8 IC(1)=g 
IC(K1+1)=1 
CALL DCN(IR(IR(1)+2),K2,K) 
K3=K2/K 
IC (K1+1)=I1C(K1+1)*K5 
CALL INMPN(IC,K3,IC) 
CALL INMPN(IR, 'K3, 'IR) 
K=IR(IR(1)+2)/K2, 
IC(IR(1)-1B(1)+2)=K 
CALL INMEM( TB, gk IR(1)-IB(2),1D) 
CALL SUMP(IR, 
IR(1)=1 CT ie | 
DR GOTO 4 
NI=TR(1)+2, 
DO 51 
DORIN 42) NE.) GOTO.6 
IR(1)=IR(21)-1 
IR(1)=5 
IR(IR(1)+3)=IC(10(1)+3) 
RETU 


END 


SUBROUTINE SCRIE(A, IA) 
DOUBLE PRECISION A 


9 


hu 


n wa 


IF(N1-1)2,3,4 
1 FORMAT( 'g 
4 IE(N1,G7.2) G 


O 5 
WRITE(3,1)A, TA(2) „B,IA(3),B,IA(4),N1 


RETURN 
5 N=Nl-1 


WRITE (3,1)A,IA(2),B,IA(3), (B,IA(I+2),1,I=2,N), 


*5, Ia (012) Na 
5 SRLTE(3 1) ATA (2) „BpIA (3) 
RETURN 
2 WRITE(3,1)A,IA(2) 
RETURN 


10418) IR(1) „ÎD (1995) 


„As, „18 „A, 14,13, xXx, 70A1,+1,13,1xXxx1,12)) 


SUBROUTINE INMPP(IA,IB,IC) 
DIMENSION IA(1), I309> 201), ID (195) 
IC(1) =IA(1)+IB(1) 

N1=10(1)+2 

DO 1 I=2,N1 

IC (1)=5 

NI= IB(IAa, 

DO 21 

CALL IT EMUTA IB(I+1), 1-1,1D) 

CALL SUMP(IC,1D, IC) 


= , 
SO OI NI. hu NI fo 
[IE 


11 2 CONTINUE 
12 RETURN 
13 ENp 
1 SUBROUTINE DCN(1,J,K) 
2 K1=TA8S(T) 
3 K2=1ABS(J) 
4 IF(K1.NE.9) GOTO 1 
2 = 2 
? 1 E ECR2 NE 7) GOTO 2 
8 K=K1 
9 RETURN 
15 2 K=K1-K1/K2+K2 
u IF(K.NE.9) GOTO 3 
12 K=K2 
13 RETURN 
14 3 K1=K2 
15 K2=: 
16 GOTO 2 
11 END 


1 SUBROUTINE DCP(IA,IB,IC 
2 - DIMENSION IA(1), 180), Sa) „ID (199) „IE(195) 
3 CALI INMPN(TA,1-1 

4 “CALL INMPN(IB,1 10) 

5 19 CALL IMPP(ID, ic, IE, g10) 

S IF(ID(1) .£Q.9) G 

8 
9 


NI1=ID(1)+2 

K=ID(2) 
| DO 2 I]=2 
318 2 CALL Zouk 10 (0),k) 
31 > I=2,Nl 
22 3 70 (2) 27000) /x 
13 CALL INMPN(ID,1,IE) 
14 CALL INMPN (IC, , 'ID) 
15 CALL INMPN (IE, I, 'I0) 
16 O 15 
17 1 Dn 02) „2Q.) RETURN 
18 IC(1)=g 
19 IC(2)=1 
25 RETURN 
21 END 


7 — Programe în limbajul FORTR AN 
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DOINA AU Nb 


RP i 
PRonianaunu îbbâoosawaun 


ap 
0 


SUBAOUTINI SUMP(TA.IB,10) 
DIMENSION IA(1) Bt Ic) 
' TR(IA(1)-I8(1))4, 

4 Ic(a)=IB(1) 
NIIA(1)+2 
DO 21 

2 ZOE) SIAB) 


N2=IB(1)+2 
DO 5 I=N1,Nă 
3 10 (iera(i) 


RETU 

2 ICC TA(1) 
NI=IB(1)+2, 
DO 6 

6 ze aezatiazata) 
N2=IA(1)+2 
DO 7 I=NI,N2 

7 IC (Io zA(I) 


5 FCC TA(1) 

. NISTACI)+2 

DO II 

8 DE 9 aezati) 
RETURN 
END 
SUBROUTINB INMPM( IA, Ti, i,16) 
DIMENSION 7A(1),1C(1) 
CALI INMPN (IA, 5, Ic) 
IF(L.EQ.9) RETU RN 
IC (1) =IA(1)+L 
Ma TA(I+2, 

5 Zo(azzebeL)=10(Maeto2) 


20 2 RA 
2 1C(1)p 


SUBROUTINE INMEN (TAK, 10) 
DIMENSION TA(1), IA 
.£) G0TO'1 


2 10 ezite 


1 301) 
IC (2)=p 
RETURN 


PROGRAMUL 12 


Să se scrie un subprogram pentru calculul valorii unui 
determinanti după dejinabie. 


Dacă un determinant este atașat matricei (4,;)4,j = 
= 1,2,...,N, atunci valoarea lui este dată de formula: 


9 e A1o(1)229(2) ..+ (No(N) 
sEr 


unde x este mulțimea tuturor permutărilor mulțimii (1,2,..., 
N), g este permutare a aceleiași mulțimi, iar e, ia valoarea 
1 dacă o este o permutare pară și valoarea —1 dacă este o 
permutare impară, | | 

Deci pențru rezolvareă problemei trebuie mai înții să 
generăm toate permutările mulțimii de N elemente și apoi să 
adăugăm la valoarea determinantului, care inițial este 8, 
termenul corespunzător. Generarea permutărilor se poate 
face în felul următor: în vectorul IA punem mai întîi elemen- 
tele în ordine de la 1'la N. Aceasta este prima permutare. 
Pentru obţinerea următoarei permutări, se permută circular 
elementele începînd cu primul element, deci se obține: 


2,3,4....Njl 


și se fac în continuare permutări circulare pînă cînd se obține 
pe primul loc din nou 1, adică permutarea de la început 
Acum facem o permutare circulară a elementelor începînd 
cu al doilea element obţinînd permutarea: 


1,3,4,...N2 


și din nou facem permutări circulare cu cele N elemente pînă 
cînd 1 ajunge pe primul loc și se face iar o permutare circulară 
începînd cu al doilea element. Procedăm aşa pînă cînd primele 
două elemente ajung să fie din nou 1 și 2. În acest caz se face 
o permutare circulară a elementelor începînd cu al treilea 
și se reia procedeul. Deci, dacă la un mement dat pe primele 
2 locuti se ailă valorile de la 1 la z, în ordine, iar pe locul 
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+ 1 este o valoare diferită de 2 + 1.se face o permutare 
circulară începînd cu elementul 2 + 1. Cînd toate elementele 
sînt din nou în ordine s-au obținut toate permutările. 


De exemplu, dacă N = 3 se obțin succesiv permutările: 


DO = WI —= 
i N OI = OD 
O = D595 


Subprogramul PERM permută circular elementele vecto- 
rului IA începînd cu componenta K pînă la N. Schema logică 
apare în fig.12.1.. Trebuie remarcat faptul că variabila K 
poate lua cel mult valoarea N—I. 

Subprogramul PER dă permutarea următoare, precum şi 
paritatea ei K. Paritatea se schimbă dacă se permută circular 
un număr par de elemente și rămîne neschimbată dacă numă- 
rul elementelor permutate circular este impar. Valoarea lui 
K devine 9 în cazul cînd se revine la permutarea identică. 
Schema logică a acestui subprogram apare în fig. 12.2. 

Functia DET calculează valoarea determinantului, gene- 
rînd pe rînd toate permutările. În acest subprogram au fost 
introduse și instrucțiuni de scriere a permutărilor. Schema 
logică a acestui subprogram apare în fig. 12.3. Lui Ki se dă 
la început valoarea 1 deoarece permutarea identică este pară. 

Programul. principal calculează valoarea următorului 
determinant: 


l O 5| 
—2 —3 O 
O 4 l 


elementele acestui determinant fiind introduse în calculator 
printr-o instrucțiune DATA. Se observă că, în această instruc- 
țiune, valorile din matrice sînt puse în. ordine pe coloane. 

Observaţie: Această metodă de găsire a valorii unui deter- 
minant este mai exactă decît metoda Gauss, însă timpul de 
calcul, în general, este mult mai mare. 
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EXERCIŢII 


1) Ce efect ar avea eliminarea instrucțiunilor 11 și 12 
din funcţia DET? 

2) Ce modificări trebuie să facem în funcţia DET pentru 
a găsi valoarea unui determinant de dimensiune mai mare; 
de exemplu, un determinant cu 63 de linii și coloane? 






R2=IA(K) 








Fig. 12.2 
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3) Să se facă o subrutină care să permute circular primele 
K. componente ale unui vector. 
4). Să se demonstreze că prin procedeul expus. aici se 
obțin toate permutările și numai o singură dată. 
SUBROUTINE PERMCIAsN SE) 
DIMENSION IA(1) 


KI=K+1 
K2=IA (K) 


END 
 BUBROUTINE PER(IA,N,k)' 
DIMENSION IA(1). 


„N 
CALL PERII TA,N,I 1) 
IF(N-I-(N-1)/2*2 „NE+7) K==K 
IP(IA(I)EQ.I) GOTO 1 
RETURN 
3 CONTINUE . 


K=9 
RETURN 
BND 


| [3 pa 
Boomannunm Bhbonsonwuaunh oosanauna 


PUNCTION D2P(A,N) 
PIMBISIOR AG, 3) 14(59) 


DO 1 I=2, 
n Ă TACID)=L 
K=l 
DET= 
O 2 I=1,N 
2 B=B*A(I, 141) 
DET=DET+B 
a WRITE (3,4) (TACI) „I=1,N) 
12 4 PORMAT(! 1,4913 
23 CALL PER(IA N 2 
34 IP(K.NE 9) 1040 3 
25 RETURN 
16 END 
2 DIMENSION A(3,3) N 
2_ DATA A/1 +5,-2:0,0.8, 5.5,-3.8, 4.5, 5. K.X.X! 2 | 
3 BDET(A, 2 n 
2 1 FOEMAT( i VALOAREA DETERMINANTULUI ESTE ',78.5) 
7 END 
REZULTATELE PROGRAMULUI = 


4 


VALOAREA DETERMINANTULUI ESTR =43.405 
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PROGRAMUL 13 


Să se calculeze valoarea într-un punct, derivălele parțiale 
și integrala unui polinom în mai multe văriabile. 


Vom considera cazul unui polinom în trei vatiabile 
X,Y;Z. Forma generală a unui astfel de polinom este 


N 
P(X,Y,Z) = Șa,XiYviză. Coeficienţii polinomiului sînt me- 
11 


morați într-un vector CB cu componente reale, iar expo- 
nenții lui X,Y,Z, din fiecare monom, sînt păstraţi respectiv 
în cele 3. coloane ale matricei cu elemente întregi POLI. 

În cazul concret al problemei, pentru câre a fost alcătuit 
programul, N are valoarea 15, adică polinomul este format 
din 15 monoame. Polinomul propus este P(X,Y,Z) = 3X + 
+ 3Y —2XY + Z—2,5XYZ — 1,5YZ+ X2Y — XY2 + 
+-1,5XZ + X2 — 2X9 + OX2Y2 + 2Z2 + OX2Z + Y2. 

Programul începe cu citirea exponenților și a coeficien- 
ților polinomului. Este citit după aceea tripletul (X,Y,Z) 
în care este calculată valoarea polinoinului. Calculul acestei 
valori este memorat în variabila VAL și constă în adunarea 
succesivă a valorilor în punctul (X,Y,Z) a monoamelor din 
care este alcătuit polinomul. 

Se trece apoi la determinarea derivatei polinomului în 
raport cu fiecare variabilă. Coeficienții fiecărei derivate sînt 
memoraţi pe rînd în vectorul DER, iar exponenţii monoare- 
lor sînt memoraţi în matricea DERIV. Derivarea se fâce 
după regulile cunoscute. 

În continuare, sînt citite limitele de integrare. Limitele 
inferioare sînt memorate în vectorul A, iar limitele superi- 
oare sînt memorate în vectorul B. Aceşti vectori au cîte -3 
componente întregi. Calculul integralei constă în integrarea 
succesivă a monoamelor componente și în adunarea rezul- 
tatelor. Pentru integrarea unui monom se observă că: sînt 
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START 


Citeste POLI ,CB,XsI,Z 
VAL=p_| 


= = = CE 2022315) 
Li 
| 


L- gaL= VAL+oB(K) ax POLI (Ka1) agPOLI(£,2) „POLI (K,3) 


/ Serie VAL / 
=== —TE,23 
— K=1l 2, o ..15 


POLI (K,L)=p Da 


Nu 


= Iza 23 


DERIV(K,I)= POLI(K,I) 


- DERIV(KM)= POLI (K,M)| 
DER(K)=5 






DERIV (K,1)=POLI(K,I)=1 


— ——._—.—._ . 
E 


LL ___ a 
Serie DERIV,DER 


Castel mhiD Gomae cip emo Glad MO DI Da m miei me fmme omite 


r 
| 
| 
| 
| 
| 
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---] 


îndeplinite condiţiile pentru integrarea separată în raport cu 
fiecare variabilă, adică avem egalitatea: 


$$$ X*ivizâaXAYu2z = $ XiaX» $ YViaYy+ $ Zîidz 


Valoarea integralei este tipărită. 
Schema logică a programului apare în fig. 13.1. 


Citeşte A,B 
VAL=g |. 


pP--——_.__ N=22, e. .315 | 


(- 
i , 
Y=CB(N) 
j 
i 
II me 
| 
| 
] I |v=v/(poLz(nk)+1)e(B()POLI(N,K) +1, (xp POLI(N,E)+1) 
(OCOL — 
| ..P 
) VAL=VAL+V 
„oo 
(_STOP | 
Fig. 15ele 
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EXERCIŢII 


1) Se pune întrebarea dacă instrucțiunea 3 poate fi înle- 
cuită cu instrucțiunea. următoare: 


READ (1,1) POLI 


2) Presupunînd că exponenţii și coeficienţii fiecărui 'mo- 
nom sînt scriși pe cîte o cartelă, să se modifice corespunză- 
tor instrucțiunile de citire din program. 


Soouauaunk 


INTEGER POLI(15 3) „DERIV(15, 3) 
DIMENSION CB(15);DER(15),4A(3),B(3) . 
READ (1 2) ((POLI(1,9),J=1,3),1=],15) 
3 PORMAT(45I1) 
READ (1 iat), Ta 15) 
21 FORMATI 15(73 1 s2Ă 1.2X )) 
2)X,£,3% 
2 zori 5p322) 


10 5 R =1,15 

5 VAL=VALACB(E) sr e ePOL (k, 1) sXesPOLI (K,2) «2*xPOLI(K,3) 
WRITE(5,4) XX, Z,VAL 

4 FORMATII VALAALGĂ AN X=' 06,3, 1X5,76,33123",F6.5,. 
E zieaart 


1115 

| ze(z0LI (8,1997, 8,7 

720 9 125 
Te (2-1) 

11 DERIV(K aa e )-a 
GOTO -9 


15 DEV OR EI) cpoLa (1 
9 ca SD OI) L) 


8002 3 
Deaty (i A=zoLz(50 
12 DER 


I1=1,15 
varzs(3014) (DERIV (1) 921,5) DER(L) 
14 FORMAT(I. *,512,5%,811.45 

22 CONTINUE 

5 CONTINUE 


15 READ (1. 204,B 2)) 

VAL=9 

D0.16 N=1,15 

V=CB(N) 

DO 17 K=1,3 | | 
27 V=V/ (POLI Îi) +2) (BCR) et POL (N) +1) ACE) xx (POLI (N K) 
16 VAL=VAIAV 

WRITE (3,20) VAL | | 
24 FORMAT(! VALOAREA INTEGRAIEI=" 217,16) 


STOP 
END. 


3) Să se scrie o subrutină pentru calculul valorii unui 
polinom în N variabile într-un punct S=(S,, $,,...,S,). 

4) Cum poate fi redus numărul de instrucțiuni din ciclul 
DO constituit de instrucţiunile 28—31? 


REZ TELE. PROCE 

ALOAREA IN i st: =-1 „gz= 2 2 „DOBESTE (21908. A 
0 .25008. 1 
2, 


9.5770£ 1 
-p .2070E Bl 


2.5 
-9.25707£ 1 
-0 „15958 dl 


[4] 
5 
5 
pă 
2 
1 
5 
5 
DĂ 
.j 
5 
pă 
2 
5 
9 
5 
5 
% 
1 
Lă 
i 
] POE PI] 
5 
5 
1 
2 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
', 
5 
% 
',) 
1 
p 
5 


9 .,2090£8 31 
5.5 
3.5 
2.5 
4.,1900E 31 
7 .,2590E Pl 
5.5 
5.5 
9.15905 Și 
8.5 


SnSvuniinsn si sransnunirnsu sasa pusansassasE 


a 
i 
1 
g 
1 
1 
1 
3 
. Ș 
d 
E, 
) 
2 
2 
. 5 
5 
5 
5 
, Ş 
i 5 
g 
1 
B. 
8 
/j 
g 
d 
1 
1 
9 
i 
1 
5 
1 
1 
i 
2 
5 
g 
g 
5 
2 
2. 


5.5 
d .4000E ȘI 
2 „2 


d. 
AREA INTEGRALEI= g.51499987958 dă: 


E 
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PROGRAMUL 14 


Să se ortonormeze un sistem de“vectori liniar independenţi. 


pr 


d 


Avînd doi vectori A și B cu cite N componente, se defi- 
N 

nește produsul lor scalar (A, B) — > A(1)+B(1), iar norma 
i=I 


unui vector: |/A|| = V(A,A). | 

Fie X,, X2,..., Xm un sistem de vectori cu cîte N com- 
ponerite, pe care ne propunem să-l ortonormăm, adică să 
ajungem la un alt sistem de vectori Y,, Y.,..., Ym care să 
genereze același spațiu liniar și care să satisfacă următoa- 
rele condiții: 


a) (Y,, Y;) = 9 pentru 1=£j unde , j€ (1,2,...,.M) 
b)|| Y;|| =1 pentru ze (ţ1,2,...,M) 


Folosim procedeul de ortonormare Gram-Schmidt, care 
constă în aflarea succesivă a vectorilor Y,, Y.,..., Ym Con- 
form. formulelor: 





y, = 
1 Xl 
Y Xe ai (X2,Y,)Y, 


2 IX — (XV, |] 
În general avem relaţia: 
K-1 


XKk — dări 
=i 


Yk = 
K-1 
[| Xa — Stări || 

l=1 


Se verifică ușor că sistemul de vectori astfel obținut 
este ortonormat. 
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START O Ile po eso? 
| m IPlp2pososkl 
|] 
== Tzi II RC ID ACE IPC sa 2) 
| III 
— | 
W(I)zA(1,1) 3 
-—— 
Loca C 3€3 7 
Y=PROD(W,W,7) 
Y=SQRT(I) | Da PACE) 
I=PROD (W,N,7) 
_——- Ali 
Lp Y=SQRT(Y) 
i | 
i, , 
ACI, )=a(1,1)/X| | 
L pr ==— 
222 | 
—X2) 
a Ş A(K,I)=A(K,I)/r 
=== (2k-- 
| / Serie A / 
W(I)=A(K,1) 
LL ZII 
KI=E-1 
== Tzi Fig, 14.1, 
| 
| 
II mal 
Ll 
| “ V(9)=A(14) 
| io | 
1 
j. P(1)7P j 
L___ Lo PD EPROD(W,V,7) 


Functia PROD calculează produsul scalar al vectorilor 
A şi B cu cîte N componente. J 

Programul principal realizează ortonormarea vectorilor, 
plecînd de la algoritmul propus mai sus. 

n problema concretă pe care 0 rezolvăm, avem 5 vec- 
tori cu' cîte 7 tomponeite, vectori care sînt steriși ca linii 
într-o matrice A de dimensiuni (5, 7). Rezultatul va fi înscris 
tot în matricea A, deci Yu va apare scris pe linia K â matricei 
A. Valorile iniţiale ale vectorilor se distrug. Pentru a putea 
lucra cu fiecare linie în parte, am introdus vectorii de lucru 
P, Vși W. 

Pentru calculul lui Yk (K > 1) parcurgem următoarele 
etape: 

1) linia, K este transcrisă în vectorul W 

2) liniile 1,2,...,K — 1 sînt transcrise pe rînd în vecto- 
rul V și se calculează cele Kl — K — 1 produse stalare care 
intervin în expresia lui Yx 
3) se înlocuiește linia K a matricei A cu vectorul Xx — 


— > P(1) Y,, adică A(K, ]) primește valoarea A(K, ]) — 
pyi 


EL a 
— d P()+ ACI, J) 

4) se execută aceleași calcule ca pentru vectorul Y,, 

adică noua valoare a liniei K este transcrisă în vectorul 
W, pentru a putea calcula norma vectorului constituit de 
această linie, iar după aceea toate elementele liniei K sînt 
împărțite la rezultatul obținut. 
Observație. Pentru simplificarea .programului am presupus 
că vectorii linie ai matricei A sînt liniări independenți și 
deci norma nici unei linii obținute pe parcursul calculelor 
nu va fi egală cu zero. 

Schema logică a programului principal apare în fig. 14.1, 


EXERCIŢII 


1) Presupunînd că despre vectorii linie ai matricei nu se 
știe că sint liniar independenţi, să se modifice programul 
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principal în așa fel încît în momentul în care norma unui 
vector linie nou obţinut este egală cu Q, să fie tipărit un 
mesaj și să se întrerupă calculele. 


Bo oana pa 


= DU. ID ju 


REAL CZ AS, 7) ,P(4),Y(7) 
3 ForMAT(5L Fa, „2,1X)) 


3 UL =A (11) 
Y=PROD (4 W,7) 
Y=SQRT(Y) 

O 2 1=1,7 
2 ACI satana 
MD 


5 Fiat, 


wi 

7 V(J)=A(I,J) 
6 P(I)=PROB(I,V,7) 

20 9 J=1,7 


O 9 I=1,K1 
9 a 3) A IEI) -P(T) să (13) 
DO 13 1=1,7 


DO 12 1=1,7 
12 A(K, T)=A(K, 1)/Y 
A CONTINUE 

WRITE (3,4 


42) 
42 FORMATI! „IPOTORIT ORTONORMATI APAR PE COLOANE!) 


wRITE(3, 4 
45 zozuaz( 45 (29, 2,5X))) 
STOP 


END 


PUNCTION PROD(As8,N) 
REAL A(N),B(N) 
PROD=f 

DO 2 I=1,N 
PROD=PROB+A(L) *B(1) 
RETURN 


END 


W 


REZULTATELE PROGRAMULUI_: 


VECTORII ORȚONORMATI APAR PE COLOANE 


5.34E 90 5.57E 26 5.,24£ „2TE-pa 

5.718-61 0.168 4 „41 065 0 „223 59 
5.5 5.220 24 9.552 55 5.75% 05 
p.35E 40 DIE 09 02 00 PE 


PD 15E- 
9.45E£ 


„p,55E 26 
9 ,17E-p1 
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2) Instrucţiunile 24—26 pot fi înlocuite cu instrucțiu- 
nile: 


DO121=1,7 
12 A(K,1) = A(K,1) /SQRT (Y) 


care conduc, în mod evident, la același rezultat, micșorîn- 
du-se numărul instrucțiunilor din programul principal? 
Este indicată această înlocuire? : 

3) Putem modifica numele subprogramului funcție din 
PROD în LL, făcînd bineînţeles schimbările corespunzătoare 
în programul principal? 

4) Să se arate cum s-ar fi putut renunța la vectorii de 
lucru V şi W în cazul în care am i lucrat cu vectorii 
coloană ai lui A? 


PROGRAMUL 15 


Să se facă un program care să deseneze un cerc cu centrul 
în originea axelor de coordonate, 


Linia. cercului o vom face cu steluțe, axele de coordonate 
cu puncte, iar la intersecția a două linii vom pune 8. Pen- 
tru a desena cercul, folosim un vector LINIE de 132'de com- 
ponente, care este completat cu spaţii libere, steluțe, puncte 
și zerouri,. și reprezintă o linie de tipărit. 

Dacă 1 este numărul liniei de tipărit la un moment dat 
iar | este numărul coloanei, ar trebui să se pună o steluță 
în toate locurile unde este satisfăcută relația:  » 


(1 — 66) + (J — 66): = 3609 


Am presupus că originea axelor de coordonate se află în a 
66-a linie și coloană, iar raza cercului este de 63 de uni- 
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tăți (caractere). Dar această condiţie este satisfăcută pentru 
un număr mic de perechi de puncte și cercul nu este bine 
conturat; de aceea se pune condiția să fie tipărită.o steluță 
dacă sînt satisfăcute condiţiile: 


3540 < (1 — 66)2 + ( — 66)? < 3669 
__ 
pa 


=> Da _ 


Nu 


Lj 

| ăla J=1,2y e o .ș152 | MI J=] 2, oc. A 2 
| - 

| 

| : LLINIE(J)=IB 


LINIE (66)=I1Z 
LINIE (226)=13 
LINIE(6)=17 










| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
Î 
pa 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 










Nu 5 05486(-66)257 


+(1-66)24366g 





iz Giza « a 


[ine See A ae eee e eee e Aaaa 


Fig. 25 “le 
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Dacă în loc de aceste limite se iau altele, mai apropiate 
sau mai depărtate de 3630, se obțin mai puține și, respec- 
tiv, maj multe steluțe. Linia 66 este formată numai din 
puncte și trei zerouri și coloana a 6G-a la fel. Schema logică 
a programului este dată în fig. 15.1. În program IB, IP, IS 
și IZ sînt variabile care sînt încărcate cu valorile spaţiu, 
punct, steluță și zero cu ajutorul instrucţiunii DATA. 

Datorită faptului că distanța dintre rînduri este ceva 
mai mare decît distanța dintre două caractere de pe ace- 
lași rînd, cercul apare puţin deformat, adică sub formă de 
elipsă. 


EXERCIŢII 


1) Putem folosi variabilele B, P, $, Z în loc de variabi- 
lele IB, IP, IS, IZ: | | 

2) Fie IJK o variabilă întreagă. Cum se poate folosi 
aceasta pentru a tipări o steluță, două steluțe, trei steluțe 
etc.? Care este numărul maxim de steluțe ce se pot tipări 
în acest fel? | | 

3) Să se înlocuiască instrucțiunile 11—14 cu instrucțiuni 
echivalente dar în care să nu apară instrucțiunea GO TO. 


DIMENSION LINIE(132) . 
DATA IB,IP,IS,I2/* 000 / 
DO. 1 1=1,152 

IF (I.5Q.66) GOTO 3 

DO 2 Jal,132 

 LINIR(I)=IB.- 

LINIE (66)z1P 

DO 4 Jn2,152 

K=(1-66) xu2+(J=66) **2 

IP(K GE 5665 .0R.K LE .3544)00T0 4 


bo PANU RUN pn 
LX ] 


aşi IF(J.EQ,66)60T0 5. 
22 LINIE(J)=IS 


| GOTO 4 

14 5 LINIE(J)=1Z 
15 4 CONTINUE. 

16 8070 1 

17 3 DO 6 J=1,132 
18 6 LINIE(J)=IP. 


19 LINIE (66)=12 ” 
25 LINIB (6)=I1Z 

21 LINIE (126)=12 

22 1 WRITE( 5, 7)LINIE 

23 7 PORMAT(! 115241) 

24 STOP 

25 END 
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PROGRAMUL 16 


Să se facă UN , program, Bentru ordonarea „alfabetică a. unei 
liste de nume. 


Ordonarea. numelor se bazează pe faptul că, în memoria 
calculatorului, carâcterele sînt reihorate în cîte un bait 
după un anumit cod în care literele au în primul bit un 1 iar 
în ceilalți biți un zero sau unu. Astfel, într-o variabilă de 
4 baiţi se pot iiiemora cel mult 4 caractere. Dacă se lasă la 
o parte primul bit al baiţilor în care se găsesc litere, ceilalți 
7 biți corespund la un număr binar, un astiel de număr 
fiind mai mare decit altul dacă litera - corespunzătoare lui 
apare în alfabet după litera corespunzătoare celuilalt. Dar, 
cum primul bit dintr-un cuvînt este bitul de semn şi cum 
acesta este Î, numerele corespunzătoare literelor sînt consi- 
derate negative și deci putem să spunem că litera A este 
mai mare decit B, B este mai mare decit C și așa mai departe. 

Dacă un nume are L caractere, cum fiecare locație de 
memorie poate să memoreze cel mult 4 caractere, pentru 
a memora un nume sînt necesare [(L — 1)/4]) + 1 locaţii 
de memorie pentru fiecare-nume. Spațiul liber este mai mare 
decît orice literă, şi de aceea numele trebuiese aliniate iar 
între nume și prenume trebuie să lăsăm același număr de 
spații libere. 

Subprogramul ORNM ordonează alfabetic numele ce se 
găsesc, fiecare, în cîte o coloană a matricei :N. Schema 
logică a acestui subprogram este dată în fig 16.1. L este 
numărul de locații de memorie ocupate de un nume, iar 
M este numărul numelor care trebuiesc ordonate. . 

Mai întîi se aduce pe primul loc primul nume în ordine 
alfabetică, apoi pe al doilea loc se aduce! primul nume în 
ordine alfabetică din cele rămase, ș.a.m.d., pînă cînd pe locul 
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M—1 a fost adus primul nume în ordine alfabetică din ulti- 
mele două rămase la urmă. Această operație se face luînd pe 
rînd fiecare nume și compârîndu-l cu cele care urmează. . De 









A=N(K9) | 
N(K,U)=N (KI) 
N(K,I)=A 





9 Fig. 16.1, PP 


cîte ori se întîlneşte un nume care trebuie să fie: alfabetic 
înaintea celui care se compară, se schimbă între ele cele două 
nume şi compararea continuă cu noul nume. Compararea a 
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două nume se face pe grupe de cîte 4 caractere, începînd cu 
primele patru și continuînd cu următoarele grupe dacă primul 
grup de patru caractere este același pentru cele două nume. 
Dacă toate caracterele coincid, se trece la următoarea com- 
parare de nume, fără să se mai facă mutarea celor două 
nume. “ 


Programul principal citeşte lista de nume, activează 
subprogramul de ordonare a numelor și tipărește rezultatul. 
Ca date de intrare au fost date numele: 


POPESCU GHEORGHE 
IONESCU A ALEXANDRU 
IACOB ȘERBAN 
IONESCU ALEXANDRU 
POPESCU GH GHEORGHE 
ADAM MARIA 

APOSTOL VICTOR 


EXERCIŢII 


1) Să se modifice subprogramul astfel încît să se ştie ce 
loc a ocupat fiecare nume înainte de prelucrare. 


2) Să se facă un subprogram care să transforme un voca- 
bular într-un dicționar, punînd cuvintele celor două liste 
în ordine alfabetică și un altul care să găsească corespondentul 
unui cuvînt dat dintr-o limbă în cealaltă iar dacă acel cu- 
vînt nu face parte din dicționar să se dea un mesaj. 


3) Să se scrie un program care să folosească subprogra- 
mele de la exercițiul 2. | 


11] 


4) Cum se poate mări viteza de căutare, într-un astfel 
de dicționar? 
SUBROUTINE ORNM(N,M,L) 
REAL NUT) 7) 


IS 
21 J=I+1 


ri 
3 





3 Ka e 
12 IP(N(K,9)-R(R,I))5,6,7 
5 J=9+1 
IF (I ,LE.M)GOTO 15 
I=I+l | | 
IF(I LT,M)GOTO 21 
11 RETURN 
12 6 Ka 
14 K=1 
15 GOTO $ 
16 7 DO 15 K=1,L 
17 A=N(KU) 
18 N(K,I=N(Kt) 
19 O 15 N(K,I)=A 
25 GOTO 15 
21 END 
1 DIMENSION A(7,129) 
2 “READ (1,1)M,L 
3 1 FORMAT 213); 
4 DO 2 Iz1,M 
5 2 READ(143)(A(I,I)s9=15t) 
6 5 FORMAT( 2744) | 
7 CALL ORNM(A,M,L) 
8 DO 4 I=1,M | “ 
9 4 WRITE(3,5)(A(I,T)pU=lsL) s 
15 5 FORMAT(* 1,2744) 
1 - STOP , 
]2 „END i 
, Pi 
REZULTATELE PROGRAMULUI & : 
ADAM MARIA 
APOSTOL VICTOR 
IACOB SERBAN 


IONESCU A ALEXANDRU 
IONESCU ALEXANDRU 
POPESCU GH GHEORGHA 
POPESCU GHEORGHB 


Să se ordeneze lexicografic hniile unei matrici cu ele- 
menite reale, apoi să se aranjeze elementele liniilor cu număr 
de ordine imbar în ordine crescătoare, iar elementele bpiilor 
cu număr de ordine par în ordine descrescătoare. 
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Fie == (4, Xp, ee: 2) ȘI V = (Vu Vai ::: Ym) doi vectori 
cu elemente reale. Spunem că +<y dacă + =y (adică 
dacă xy =» pentru orice k = Î,..., 4) sau dacă pentru primul 
indice 7, căruia îi corespund componente diferite în cei doi 
vectori, aven +; <y;. 

Să analizăm pe rînd subrutinele și programul principal 
care alcătuiesc programul de rezolvare al problemei propuse. 

Subrulina CRES ordonează crescător elementele unui 
vector A ăvînd N componente reale. Schema logică apare 
în fig. 17.1. Algoritmul de rezolvare este urmățorul: pentru 
fiecare k (k = 1, ..., N—1) determinăm poziţia II a celei 
mai mici dintre. componentele Xk> se + Schimbăm apoi 
elementele x, și xp între ele și astfel cea mai mică dintre 
componentele Xp» + Xp SE Va afla pe poziția &. După ce k 
parcurge în ordine valorile 1,..., N—1, elementele vecto- 
rului inițial vor apare în ordine crescătoare. 

Subrutina DESCR ordonează descrescător elementele unui 
vector A avînd N componente reale. Algoritmul. este analog, 
iar în schema logică singura modificare constă în schimbarea 
sensului inegalității din blocul condițional. 

Subrutina MAT ordonează lexicografic (crescător) liniile 
unei matrici cu elemente reale A, avînd M linii şi N coloane. 
Algoritmul urmează ideea din algoritmul corespunzător 
subrutinei CRES, elementele care se ordonează crescător 
fiind de data aceasta vectori iar relația de ordine dintre ei 
fiind relația de ordine lexicografică. II va reprezenta deci 
numărul liniei care este cea mai mică pentru ordinea lexico- 
grafică dintre liniile &, ..., M. Schema logică apare în fig. 17.2. 

Programul principal. Matricea A cu care lucrăm are 8 
linii şi 5 coloane. Elementele ei au cel mult 2 cifre înainte. 
de virgulă și 3 cifre după virgulă; deci formatul cel mai 
indicat pentru citire este F5.3. Pe fiecare cartelă apar cele 
8 elemente ale fiecărei coloane, despărțite între ele de cîte 
5 blancuri. 

Instrucţiunea 4 realizează. scrierea pe linii a matricei 
iniţiale. Instrucţiunea 5 apelează subrutina MAT care ordo- 
nează lexicografic crescător liniile matricei. Instrucţiunile 
6 14 au următorul efect; se parcurg pe rînd liniile matri- 

; pentru linia Il, elementele ei se memorează într-un 
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vector V; instrucțiunea 9 decide asupra .apelării uneia dintre 
subrutine: dacă | este par este apelată subrutina DESCR, 
iar dacă I este impar este apelată subrutina CRES; apoi 











K=1 32 eesgNi 


- 
| 


| oii 


AITA) 
A(K)=X 


| pt n ia iai —————— ——.—.—.. 


Fige l?ele 


p= === 


TI=K 
KI=R+1 
ras so IRI] 


| 

| po Iza ea 23N 
N 

| 

| 


TI =I3|<9 >0 


——LLELs2s ssesN | 





ACEL) za (11,1) 
A(II șL)=X 


* rom —=—m a 


== 
| 
| 
| 
| 
| 
| 
| 
! 
| 
N 


Fig, 11.2e 
“> 


elementele permutate corespunzător ale vectorului V! sînt 


copiate în linia |. 


Programul se încheie cu scrierea pe linii a matricei 


finale la imprimantă. 
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EXERCIŢII 


1) Poate lipsi instrucțiunea 11 din programul principal? 
2) Cu care dintre următoarele instrucțiuni este echiva- 


lentă ultima instrucțiune FORMAT din programul princi- 
pal? 


FORMAT ((' *, 5(F6.3,4X)/)) 
FORMAT (' ', 5(F6.3,4X)/) 


3) Se observă că subrutinele CRES și DESCR coincid 
afară de o instrucțiune. Să se formeze o singură subrutină 
care să le condenseze și să se modifice corespunzător pro- 
gramul principal. 

4) În subrutina MAT se poate întîmpla ca pentru anumite 
valori ale lui K, II să coincidă cu K, caz în care executarea 
ciclului DO a cărui variabilă este L nu produce nici o modifi- 
care dar, în schimb, se pierde timp. Să se modifice subrutina 
astfel încît acest inconvenient să fie eliminat. 


SUBROUTINE CRES(A,N) 
REAL A(N) 


=KI,N 
ZE(ACI) I) LEA II) DIT=9 
8. CON 
ACI Te 
AI e) 
5 A(K)=X 
RETURN 
END 


SUBROUTINE DESCR(A,N) 
REAL A(N) 


DO 7 J=KI,N 
ZE(ACI) „GA (11) )I1=a 
7 CONTI 
XII) 
adi A(II)=A(K) 
5 A(K)=X 


15 RETURN 
END 


PE) 
Sowaawaunh Pibiboozauaun 
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1 SUBROUTINE MAT(A,M,N) 
2 REAL A(M, N), 
b SL =M-1 
4 DO 5 K=I,MI 
5 Ii=K 
6 KI1=K+1 
7 DO S J=KI AM 
8. DO 7 
9 IPA CI, Caz, 1) 9147 
19 7 CONTINUE 
11 1 II=J 
12 6 CONTINUE 
13 DO 8 1=1,N 
14 =A(K,L 
15 AQ L-A (IT,) 
16 8 A(I1,L)=X 
17 5 CONTINUE 
i 3 RETURN. 
4 END 


-3 REAL A(8,5),v(5) 
2 READ (1,6)4A 
3 6 roRmrla(F5.3,5xX 
4 WRITE 11) zana, 5) 121,8) 
5 CALL MAT(A,8,5) 
6 DO 8 1=1,8 
7 DO 2'J=1, 
8 9 V(I)=A (1'3 
9 IF(1.EQ. I/zm0) GOTO 44 
14 - CALL CRES (V,5) 
11 GOTO 93 
12 Psi CALL RZA A 
13 DO 85 i 
14 2 A(I,U)=V 
15 vaIIz (5 Ep ((4(1,9) d=1,5),i=1,8) 
26 un zor (ă(- *45(96.3,4)/3) 
28 
2ULTA 0Q y 
1,325 2,425 1.642 1.742 
6,213 7.4 5111 2.224 
7.415 6,419 4.987 4.444 
4,129 8.567 6.666 9 2.345 
9,492 5.2 8.888 4.567 
1,212 2,323 4.545 9,898 
5.192 1,212 2.323 4.545 
8.9 5 „555 2,99 „27l 
1.952 1,325 2,425 7.642 
7.777 4,322 % 456 1.761 
2.545 4,129 6.666 8.567 
7.4 6,212 5,111 2,222 
4444 4,987 6,419 7.415 
9.492 8.888 4,567 2345 


PROGRAMUL 18 


Să se scrie un program care să realizeze codificarea şi 
decodificarea unui text. 


Presupunem că textul cuprinde în afara celor 26 de 
litere ale alfabetului englez și urmăţoarele semne: minus, 
virgulă, punct, slash și blanc. Toate aceste 31 de semne 
sînt memorate în această ordine în vectorul ALFAB. Textul 
este format din 300 de semne cuprinse în vectorul T. Codi- 
ficarea, va fi memorată în vectorul TEXT. 

Stabilim o corespondență biunivocă înțre elementele 
vectorilor T și TEXT în modul următor: 

Considerăm elementul de pe poziția 1 din vectorul T. 
Să presupunem că el coincide cu elementul de pe poziţia 
] din vectorul ALFAB. Fie K = J-—1 (deci avem relația 
O < K <£ 30), Fie II restul împărțirii lui | prin 30 (deci 
O < II <£29). Atunci punem TEXT (1) = K+ Il+31. 

Invers, cunoscînd valoarea lui TEXT (1), deducem ime- 
diat pe K, adică restul împărțirii lui TEXT (1) la 31, și deci 
deducem pe ]. Rezultă de aici posibilitatea unică: de decodi- 
ficare a unui vector care constituie codificarea unui text 
ș coincidența acestei decodificări cu textul inițial. Observăm 
că în valoarea lui TEXT (1) termenul 11l+31 are doar rostul 
de a îngreuna descifrarea textului. 

În realizarea programului ne lovim de dificultatea ine- 
xistenţei unor variabile care să memoreze caractere, De 
aceea, „simulăm“ aceste variabile folosind variabile întregi 
de lungime 2 care pot memora două caractere. Cu ajutorul 
formatului A introducem în fiecare element al vectorului 
ALFAB o pereche de caractere formată din cite unul dintre 
cele :31 de semne folosite, urmat de blanc. Bineînţeles că 
aceste variabile au valori numerice, dar acestea nu ne. inte- 
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resează deoarece variabilele nu intervin în calcule ci doar 
în operaţii de citire și scriere cu formatul A, | 
Programul principal constă în următoarele: 
Pentru fiecare element al textului transcris în vectorul 
T se determină caracterul pe care îl reprezintă și pe pozi- 


/ Citeşte ALFAB 


PT 


2222 IE ZZPCIEPESI IA 
po 


| 
| 
| T(1)=ALFAB(J dc 


L——.———— 


11=1-1/3ă*36 
TEXT(I)=K+11+32_ 


— a | m e me me ame ——.—. 


( 


poze 


—  —.—.— IZ172 pe 02565 









1=(K-1)*65+J 
L=TEXT(1)-TEXT(1)/31%31+1 
71 (I)=ALFAB (L) 






po" 


Fig.18 .le 
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ţia corespunzătoare din vectorul TEXT este înscrisă codifica=- 
rea caracterului respectiv, adică un număr. calculat după 
regulile prezentate anterior. 


După ce este scrisă codificarea textului, se trece la. deco- 
dificarea vectorului TEXT. Dat fiind că lucrăm cu variabile 
întregi de lungime 2, greăm un vector Tl cu 60 de elemente 
întregi, care corespunde unui rînd la imprimantă. În urma 
decodificării făcute, conform celor prezentate .mai sus, 
vectorul Tl este completat cu echivalentul a grupuri de cîte 
60 de elemente din vectorul TEXT și apoi este tipărit pe 
o linie a imprimantei. 
Observaţie. Programul fiind rulat pe un calculator IBM 360, am 
putut folosi variabile întregi de lungime 2. Dacă lucrăm pe 
alt tip de calculator, va. trebui să facem următoarele modi- 
ficări: elementele vectorilor care intervin în program vor 
trebui declarate ca întregi de lungime 4; pe cartele fiecare 
caracter va fi urmat de trei blancuri în loc -de unul singur; 
pe fiecare rînd al imprimantei vor fi scrise cîte 30 de 
caractere în loc de 6; formatul folosit atît pentru citire cît 
și pentru scriere va' fi A4. 


EXERCIŢII 


1) Se observă că ultimele două cartele de date conțin 
numai blancuri, textul ales pentru decodificare avînd mai 
puțin de 389 de caractere. Pot lipsi aceste cartele? Putem 
adăuga cartele suplimentare după cele 8 cartele prezente? 


2) Cum pot fi condensate într-o singură instrucțiune 
informaţiile cuprinse în cele două instrucțiuni de declarare 
din: program? 

3) Se întreabă dacă putem înlocui instrucțiunile 11—14 
prin instrucțiunile: 
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G0T0 3 
41 CONTINUE 
3 IF(TU). NE. ALFAB(]J)) GOTO 41 
K=J-—l 


Produce aceasta o modificare a rezultatelor? 


4) Cum poate fi modificat programul astfel încît după 
decodificare fiecare rînd al poeziei să apară scris pe cîte 
un rînd al imprimanței, slash-urile delimitatoare fiind înlo- 
cuite cu blancuri? 

% 


INTEGER*2 ALEAB( 91) „7(306), '71 (62) 
INTEGER TEXT( 344) 
READ (1, 1 7)ALPAS 


DODA PUII BI 0 pa. 
a: 
Lo 
_ 
.. 
AC) 
NA 
3 


1g DO 41 J=1,51 
11 IPUT(1) NE „ALAB(a 070 4 


13 6020 7 

14 41 CONTINUE 

15 1 I11=1-1/39+*35 

16 33 TEXT(1 Ret l s31 

17 WRITE (3,75) TEXT 

18 75 PORMAT('1', 'CODIFICAREA POEZIEI ESTE'/(* ',15(13,1X))] 
19 WRITE(5,71 , 

29 7 FORMAT( '1DECODIFICAREA POEZIEI ESTE?) 


21 DO 1 K=1,5 
22 DO 2 J=1, SD. 

23 1=(-1) +64 

24 LATERT(E)e eat 10/9231 
25 2 T1(J)=ALFAB(L) 

26 1 WRITE (5,8)11 

27 STOP 

28 END 





„d 


LUCEAFARUL. DEg MIHAI EMI 

POST ODATA.CA-N PovesrI CU : 

OST_ CA NICIODATA, / DIN RUDE MA 

RI IMPARATESTI,/ 0 PREA FRUMOA 

SA FATA, /SI ERA UNA LA PARINTI 

3 Pro tGARA TNpagAtEpELE, (CU 
S / 

NA INTRE STELE. PENRI a /S8 lu 
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, CGDIETCARIA POBZIEI ES | 

42 128 155 191 217 265 299 321 371 375 497 464 477 
54 534 5 597 658 655 694 7121 157 779 824 839 888 929 6: 
„EI 6 107 1ţe Ta 216 271 821 419 203 031 dez dea 923 a 

) 5 685 641 6557 2 835 867 & 
ut: d: i ţ 23 157 186.247 261 297 312 %40 386. 456 434 484 
496 554 587 619 623 659 695 74% 7161 795 809 B41 898 911 2 
4 ata A7a î3ă 097 El cae io la dea 0 OT amp oi e 

52 2 619 6 668 [E | i) 

533 i! 45 132 125 225 217 216 5pă 328 549 402 47 451 463 


> 247 278 559 345 371 492 | 
526 554 230 ei bi €58 FF 722 319 274 855 836 567 iza 129 +75 


3, 
că 
8 
— 
"a: 
A. 
Ca 
: 
pi 
ÎN 
=: 
ti: 
= 
tt: 
"ă 


LUC] RUL DE E ATRAT EMINESCU A 
PE Ia rez, CÂ-N POVESTI, / A F 
0O35T GA NICIODATA, / DIN RUDE MA 
RI I1MPARATESTI,/ 0 PREA _FR E A 
SA PATA. 7/81 BRA URA LA PARI II 
/ SI MINDRA-N TOATE CELE, (CU 
Î PECIOARA INTEE SFINTII; /SI1 Li 
NA INTRE STELEe 


PROGRAMUL 19 


Să se găsească toate pozițiile pe care le. pot ocupa opt dame 
pe o tablă de șah asijel încii, pe fiecare linie, coloană său dia- 
gonală să se afle cel mult o damă (Problemă celor opt dăme). 


O metodă de a găsi soluțiile acestei probleme este așeza- 
rea celot opt dame pe tabla de șah în toăte poziţiile posibile 
Și alegerea acelor poziții care satisfac condiţiile problemei. 
Dar opt dame se pot așeza pe tabla de sah în Cg, feluri 
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distincte și analizarea tuturor acestor poziţii ar lua un timp 
foarte mare. Numărul combinațiilor scade mult dacă ținem 
seama de faptul că pe fiecare linie nu poate să fie decit 
o_singură damă, lucru_ce_ permite verificarea n numai a 8% 
| i. Putem reduce : și mai mult numărul pozițiilor ce 
trebuie testate dacă folosim următorul procedeu: punem 
în prima linie pe prima poziție o damă; căutăm în a doua 
linie prima. poziţie acceptabilă (care nu se găsește pe aceeași 
coloană sau diagonală” Cu una din damele deja puse pe 
tablă) și dacă o găsim, punem în ea o damă; căutăm în a 
treia linie o poziţie acceptabilă și dacă o găsirh punem în 
ea o damă și așă Thâi departe; dacă se ajunge la o linie 
în_care nici una din poziții nu mai este bună, atunci ne în- 
toarcem la linia precedentă și căutăm o_nouă poziție accep- 
tabilă pentru dama de pe această linie. Dacă toate cele opt 
dame au fost așezate pe tabla de șah, am găsit o soluție a 
problemei. Pentru găsirea unei alte soluții se reia căutarea unei 
noi poziții acceptabile pentru dama din-a opta linie. Acest 
procedeu se termină cînd dama din prima linie a parcurs 
toate cele..opt poziţii și ar _trebui să fie mutată din. nou. 

Schema logică a programului este dată în fig. 19.î. Pen- 
tru determinarea poziției unei dame este _de_ajuns--să ştim 
poziția ei în ei în linie. Dacă dama nu se află pe tabla de șah 
spuneni că se află în poziţia. | G. Poziţiile ocupate de dame sînt 
memorate în vectorul IA _căe are opt componente (cîte una 
pentru fiecare linie). (E Yeprezintă numărul soluțiilor - găsite 
la un moment dăt. La început, IA este “umplut cu OșiL 
ia valoarea D. Vefificarea că o poziție din linia 1 este accep- 
tabilă se face . „prin testările IA(K)7IA(), K + IA(K) £ 
7 | + IA (1) și K—IA(K)ZI—IA() pentru K = 1,2, 

„1-1. 

Pentru scrierea soluțiilor, programul. folosește un sub- 
program „TABLA care face să apară la imprimantă un pătrat 
RX8 cu cîte un X în poziţiile unde se găsese damele. 


(În total sînt 92 de soluții. 
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(__START _) 
m I=1323sse58.| 





TAME) > 


Nu 


4 

[| 

| 

| 

ELA (K)eI+IA(I) H 
. | | 

Nu. 

ț 

ţ 


- - —. . — o evo m ao af 


Tig, 19ele. 
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9 — Programe în limbajul FORTRAN 


EXERCIŢII 


1) Cum se poate face tipărirea a patru pătrate unul lingă 
altul? 


2) Ce modificări trebuiesc făcute dacă dorim să obţinem 
o singură soluție? 


3) Prin metoda expusă, unele soluţii se pot obține din 
altele prin simetrie. Cum se pot obține numai soluții distincte? 


2 LINIE(1)=1B 

"LINIE (IA(J) )=1X 

19 3 WRITE(3, 4) (LINIE(I)y I=1,8) 

al 4 PORMAT(6X,1**, 8(3X, Ies *+1,8(1X, AL! *1)/ 
C6X, 11 ,8(3X,1*)76X,33(**1)) 

RETURN 


"9 SUBROUTINE TABLA(IA,L) 
2 DIMENSION IA(8), LINIE (8) 
3 DATA IB,IX/* dx / 
4 WRITE (3,1) 
5 1 FORMATI *6SOLUTIA NR, *,13//6X,33(1**)) 
6 DO 3 J=1,8 
7 DO 2 I=1,8 
8 
'9 


12 

13 END 

2 DIMENSION. IA(8) 

2 DO 1 1=1,8 

5 2 IA(1)=p 

4 L=p 

5 I=2 | 

6 4 IA(I)=IA(1)"n1 

7 IP(IA(1) .G7.8) STOP 

8 8 I=]+1 

9 IFP(1.QG7,8)G0T0 2 
15 5 IA(I)=IA(I)+1 

un IP(IA (1) ,1E, 3)0070. 3 
32 ZA(I) = 
15 6 I=]<2 
24 5 (5 +8Q+1)0020 4 
16 2 2 So > 
17 CALL, TABLA(IA,L) 
18 Goo 6 
19 3 K=1 
25 7 IP(IA(K) „EQ.IA(I)) GOTO 5 
21 IP(K+IA (K) EQ .I+IA(1))G070 5 
22 IF (K-IA(K) „EQ I-IA(1) )G97T0 5 
23 K=K+1 
24 IF(K.NEeL)G0T0 7 
23 GOTO 8 


REZULTATELE PARȚIALE SINT, i 
SOLUTIA NR, -A 


RR MIR RISE IRI MERE RIL EN RRRID 
x. 3 et * + a O x  ! 
«Xa * + %, 9 + e E 
* + * x. x * * * 
RR 300 RE 00303 PRR Oae 98 Re e ete A-3e e E aa det e 
E E E E E SE E e Se 
+ % - 2 -ă + - + 
+ oa E SE Se 
A PRR ERA RR RR RR ARATA BRE RRE 
* + * „n * + * + 
e. E, E E AN E E E 0 dt 3 
+ + * + + Li x + + 
E PER IE IE 30 EREI IL e 3 28 A 30 AA AIE 18 fe 
x, *  , + R-.P. e + 
i E, + 3 x» eX + + 
Xp ps x a + 4 9 
DAR ARIA D209 AF DER 9 16 302 ME 16 RSI 
poa vc x a. - 
* vo vă a e 1 x »? 
+ + + + + * + + » 
NANE RRRARRRIR AR RERN Ra RR 0 0 be ep 
* o. Ox x + p.  + * 
„  +* + + %* + Xa + 
DE, E, ANI, AN AR IE ME E 
vdinlei lnduldainiui ei uleiul inele lol 
» o... E E» i sr Oe 
Pie , ss... x 
>» + %* * + x» i DE i + 
EX 0 IRONIE RR RR RX XE RER ee tau 
XXL aL. 1 e i RE 3 
sv x he e n. + 
* * + + * 3 * +» „ 
PEXRA RR RR RARA RARA RER RR), 


PROGRAMUL 20 


Să se facă un program pentru aflarea unui pătrat magic 
de ordin impar. 


; 

__ Pătratul magic este o matrice pătrată cu 4 linii și 4 
coloane ce conţine toate numerele întregi de la 1 la 42 (inclu- 
siv) și pentru care suma elementelor de pe linii, de pe coloane 
și -de pe diagonale este aceeași, 
N 
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Pentru pătratele cu un număr impar de linii și coloane 
există un algoritm care dă o soluţie a acestei probleme? (desi- 
gur că această soluție nu este unică). Se pun numerele în 
ordine începînd cu 1, care se așază în primul rînd la mijloc 
șI-se încearcă să se meargă pe o paralelă la diagonala princi- 
pală în sensul spre colțul de sus (deci, dacă ultima dată am 
pus un număr în linia | și coloana J], următorul număr îl 
punem în linia |—1 și coloana J—1, dacă se poate). Dacă 
acel element este deja ocupat, următorul număr se pune 
în aceeași coloană cu cel care a fost pus ultima dată dar cu o 
linie mai jos și apoi se merge pe paralelă la diagonala, prin- 
cipală.: Dacă ultima dată a fost pus un număr în prima 
linie, se continuă din ultima linie cu o coloană mai la stînga; 
dacă ultima dată a fost pus un număr în prima coloană, 
se continuă din ultima coloană dar cu o linie mai sus, iar 
dacă ultimul număr l-am pus în colțul din stînga sus, ur- 
mătorul număr îl punem. în linia a doua și coloana întîi 
și continuăm ca mai sus. Algoritmul se termină cînd toate 
cele n? numere au fost puse în matrice. 

Subprogramul PMAG găsește soluția pătratului magic 
de ordinul N după algoritmul descris mai sus. Se presupune 
că N este un număr impar. La început toate elementele 
matricei sînt făcute O pentru a putea ști mai tîrziu dacă 
un element a fost deja ocupat sau nu. K indică cîte numere 
au fost puse la un moment dat, iar I și ] dau poziţia numă- 
rului ce se pune ultimul în matrice. La început ele au valorile 
1, 1 și [N/2])+ 1 (mijlocul primei linii). Schema logică este 
dată în fig. 20.1,. 

Programul principal dă soluţii ale pătratelor magice cu 
3,5,7 și 9 linii și coloane. Pentru aceasta este folosită o in- 
strucțiune DO cu pasul 2. În plus, acest program calculează 
suma elementelor de pe linii, de pe coloane și de pe diago- 
nale și Hipăreşte aceste sume o dată cu matricea ce reprezintă 


3 Vezi Knuth, D.E., The Art of Computer Programming, 
Vol. 1, Addison-Wesley, Reading. Massachusetts, 1968, 
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pătratul magic. L reprezintă suma elementelor de. pe a 
doua diagonală, K este suma elementelor de pe prima diago- 
nală, B este un vector care memorează sumele elementelor 
pe coloane, iar M dă suma elementelor de pe cîte.o linie. 





Pia, 26.1, 
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EXERCIŢII 


1) Este echivalentă instrucțiunea a doua din programul 
principal cu instrucţiunea 


DO 106N=3,19,2? 


2 SUBROUTINE PMAG(N,IA) 
2 DIMENSION IA(54,54) 
% DO 15 I1=1,N 
4 D0 15 I=1,N 
5 O 39 IA(1,U)=6 
7 141 
8 =N/2+ 
12 14 ae, adn 
11 EEG, Ne42) RETURN 
32 IF(I-.EQ 1 AND sI „EQ. 1)G0T0 35 
' 15 IF(1,EQ.1)GOT0 23 
34 IF(J .EQ.1)G0T0 24 
25 IzI-] 
16 J=J=1l 
17 11 IF(IA (1,U) EQ.5)GOTO 14 
18 I=]+2 
19 I=J+1 
25 GOTO 1! 
91 Op I=I+1l 
22 GOTO 14 
23 23 J=J-1 
24 I=N * 
25 GOTO 14 
26 4 I=I1-1 
27 J= 
28 GOTO 14 
29 ND 
3 INTEGER A(56,55),8(55) 
2 DO 14 N=3,9,2 
3 CAL, PMaGN'A) 
4 L=D 
5 DO 1 I=1,N 
6 1 LeL+A(I,N+I=) 
7 K=5 
8 DO 2 I=1,N 
„9 2 K=K+A(I, I) 
15 DO 3 Jz1,N 
32 B(J)=5 
32 .D0 3 I=1,N 
33 5 B(I)=B(I)+A(,9) 
34 WRITE(3,4)K . 
215 4 FORMAT( '4* 16) 
26 DO 5 I=1, 
17 M=8 
28 DO 6 J=1,N 
29 6 M=M+A(I, JI) | 
25 5 WRITE(3, '79M, (A(T,J),9=1,N) - 


) 
21 7 FORMAT(AH |, 16,0% 4014) 


22 19 WRITE(3,8)L,(B(1),I=1,N) 
23 8 PORMAT(1H0,16,5%X,4014) 
24 STOP 

25 END 
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2) Să se. modifice instrucțiunea 1! din subprogramul 
PMAG pentru a reduce timpul de calcul. | 

3) Ce se întîmplă dacă înlocuim instrucțiunea STOP din 
programul principal cu instrucțiunea RETURN? 


REZULTATELE PROGRAMULUI : 


15 
15 6: 1 8 
15 7 5 3 
15 2 9 4 
15 35 15 15 
63 15 se 4 

3 1 24 1 
65 16 24 zi 
65 22 25 15 .6 
65 3 21 19 12 
65 Ș 2 25 18 11 
65 €5 65 65 65 65 
175 
2175 28 .19 1 48 39 3p 


29 15 48 3 
115 29 21 18 9 1 41 58 


175 37 35 26 17 8 6 46 

175 45 36 34 25 16 14 5 

175 4 44 42 33 24 15 15 

175 12 .3 45 41 32 23 21 

175 25 11. 2 49 49 31 22 

175 175 175 2175 175 175 115 175 

269 45 94 25 12 1 85 &6 ă 
369 O 46 44 33 a2 131 19 6£ Su, 
369 56 54 43 52 21 14 78 -67 
569 66 55 +53 '42 ȘI 18 717 
363 76 65 63 52 41 30 19 17 


369 15 4 74 72 61 50 28 26 
369 25 14 9 15 7] 64 23 58 ze 
369 35 '24 13 2 81 75 59 48 37 


369 369 369 369 369 369 969 369 369 369 


PROGRAMUL 21 


“Avînd un Bătrat de Ximensiune N, să se treacă cîte o sim- 
gură dată prin toate elementele începind din hma întii şi co- 
loana întîi, de la un element pulindu-se trece ia următorul 
în săritura calului de şah (în formă de L), 
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Vom numerota elementele prin care trecem cu numerele 
1, 2,..., N?. Dintr-un element se poate trece în continuare 
în una din cele 8 poziţii indicate în fig. 21.1. Dacă numero- 
tăm liniile și coloanele cu numere de la 1 la N, se poate ca 
o poziție să nu f:e bună, fie pentru că a fost. deja ocupată, 
fie pentru că se iese din. cadrul pătratului. Cazul în care 
se iese din cadrul pătratului are loc în următoarele situaţii: 

— pentru pozițiile 1. și 2,. linia sau coloana devine mai 
mare decît N; 

— pentru poziţiile 3 și 4, linia devine mai mare decît N 
sau coloana devine mai mică decît 1; | 

— pentru poziţiile 5 și 6, linia sau coloana devine mai 
mică decît 1; 

— pentru pozițiile 7 și 8, linia devine mai mică decît 
] sau coloana devine mai mare decît N. 

Poziţiile sînt verificate pe rînd și se merge la prima pozi- 
ţie care este bună. Dacă nu este bună nici o poziţie, se revine 
la elementul precedent și se caută o nouă poziție bună. 
Algoritmul se termină cînd toate cele N? elemente ale pătra- 
tului au fost numerotate. 


În program se folosește matricea. M care conține elementele 
pătratului, matricea Ml în care se memorează pentru fiecare 
element poziția prin care s-a ajuns la el din elementul pre- 
cedent; N este dimensiunea pătratului, | și ] sînt linia și 
respectiv coloana elementului curent, iar K dă numărul 
elementelor parcurse la un moment dat. Ă 

Schema logică a programului este dată în figura 21.2. 

Primul element fiind fixat în M(I, 1), pentru a nu.se 
obține soluţii simetrice, :se fixează și al doilea element în M 
(2, 3) și programul este oprit cînd se încearcă să se mute 
acest element. 

În ceea ce privește timpul de execuţie, pentru N=3 
este sub 10 secunde și nu se găsește nici o soluție, pentru 
N = 4 timpul este de circa 36 de secunde și nu se găsește 
nici o soluție; pentru N=5 în 8 minute au fost obținute 
patru soluţii î în care primele 6 elemente ocupă aceleași locuri. 
Pentru N mai mare decît 5, timpul de găsire a unei singure 
soluții crește foarte mult. 
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EXERCIŢII 


1) Să se înlocuiască instrucțiunea 63 cu un număr minim 
de instrucțiuni IF care să aibă același efect. 


1. DIMENSION M(19,19),M1(19,15) 
2 DATA M,M1/255 +D/ 
3: “READ (1, 1)N 
4 1' FORMATI 12) 
5 I=l 
-6 J=1 
7 K=1 
8 270 M(I,J)=K 
9 K=K+1 
15 IF(K.OT.N*N)GOTO 125 
11 I=]+1 
12 J=J+2 | | 
13 IF(I1.G7.N.OR.I.GT.N)GOTO 15 
14 IF(M(I,J) .NE.9)GOTO 19 
15 ML (1,9 )=1 
16 GOTO "20. 
17. 14 I=]+ 
18 IzJ=1 
19 IF(I .GT,N.OR.J CT .N)GOTO 25 
29 IF(M(I ,J) NE ,D)GOTO 25 
21 M1L(1,J)=2 
22 COTO "2025 
25 23 JI=J-2 
24 IF(I .GT.N.OR.I .LT.1)COTO 34 
25 IF(M(I1,J) NE,9)GOTO 34 
26 M1(I,J)=3 


27 * GOTO 274 
28 35 I=1-1 
29 J=J-1 


39 IF(I .G7.N ORI .LT.1)GOT0 44 
31 IF(M(I,J) „NE ,9)GOTO 49 

32 M1(1,J)=4 

33 GOTO 225 

34 45 I1=I1-5 

35 IF (1 LT, OR. .LT,1)GOTO 55 
36 IF (M(I I) «NE +5 )GOTO 55 

37 ML(I1,J)=5 

38 GOTO 245 

39 59 I=I-1 

49 J=J+2 

41 IF(I.,LT.1,0R Us LT.1)COT0 65 
42 IF(M(I,I) NB.6)GOTO 65 

43 M(1,J)=6 

44 GOTO 225 

45 6B J=J+2 | 

46 IF(I LT.,21,0R,J .GT.N)GOTO 74 
47 IF (M(I,J) eNE.A)GOTO 75 

48 M1L(I,J)=7 

49 GOTO 2975 

59 795 I=I+ 

51 IJ=J+1 , 

52 IE „LT el „OR .J „GT “N 'GO0T0 85 
53 IFE(M(Iş eNE.8)GQOT0: 85 
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4 MI(1,J)=8 


55 GOTO „200 

56 85 K=K-1 

57 IF(K.EQ.2)STOP 
58 I=I+1 

59 J=J=2 

65 M2=M(I, J) 

61 MI(I, 92 

62 


M(I, 

€3 agp UST6( 12-29, 30,40,56, 60,16 27) „N2 
64 195 DO 390 îl=il 

65 309 WRITE(5, Zr 7, „I1= 1,N) 


66 2 PORMAT( * „1515 
67 WRITE (3,3) 

68 3 PORMAT(//) 

69 M2=M1(I,J) 

15 M(I,J)= 

TI GOTO 425 

72 END 


1 14 19 8 25 
2 | 


6 9 13. 18 
15 25 7 24 3 
15 5 22 17 12 
21 16 11 25 


1 16 7 19 25 

6 u 2 15 8 
17 25 9 24 3 
12 5 22 19 14. 
21 18 13 4 23 


2) Ce semnificație are variabila M2 din program? 
3) Cum se poate face'să se obțină o singură soluție şi 
nu toate. soluțiile posibile? 
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PROGRAMUL 22 


Să se calculeze valoarea funcției y = e“ pentru o valoare 
dată a lui x. 


Pentru a calcula această valoare se foloseşte dezvoltarea 
în serie de puteri a lui e“: 


=1+7ta + Z poi 


deci trebuie să calculăm, pe rînd, cîte un termen de forma 


. Ş _ 
— din dezvoltarea lui e* și se adaugă la valoarea iuncției 
u! 


care inițial este luată 1. 

Problema care se pune este să știm cîți termeni trebuie 
să luăm pentru a obține o aproximaţie dorită a valorii exacte. 
Dacă x ar fi negativ, atunci seria obținută ar fi o serie alter- 
nantă și pentru seriile alternânte cu termenii descrescători 
în valoare absolută, eroarea este mai mică decit valoarea 
absolută a primului termen care nu se mai ia în considerație. 
Deci pentru x < 8, dacă vrem să obținem o valoare care 


să ditere de valoarea exactă cu mai puţin decît un număr 
2 


Y 
pozitiv €, se calculează pe rînd termenii —— pînă cînd 








1 | '92] | oo. 
ar 
Se. Dacă este pozitiv se poate calcula, mai întîi e-* 
și apoi se calculează e* — 1Je*. Dacă notăm cu A”! va- 


loarea calculată pentru 2 c cu eroarea €, deci |e* — A”!| <e, 


1 
rezultă a | <€, sau |e* — A| <epA unde A ar fi 


valoarea corespunzătoare calculată pentru e. Dacă acum 
presupunem că e“ deci și A nu pot depăși un anumit nu- 
măr M, pentru ca eroarea de calcul a lui e“ să nu depă- 





i 9 . Y € 
șească pe € trebuie să alegem €, = 42» eroarea cu care tre- 


buie calculat e“. Dacă, de exemplu, vrem să calculăm 
valori ale lui e“ pentru un xe|— 19, 10) cu o eroare de 
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€e = 108, atunci pentru x negativ trebuie să ne oprim 
cînd ultimul termen care a fost calculat devine mai mic 
decît e iar pentru  >8 cum x IO implică e* eh < 
—8 
< 3te = 95 < 105. Sepoatelua M = 105 decie, = pa = 
l 
— 118. Rezultă că pentru ca eroarea să fie mai mică 
decît 10”€ pentru orice valoare a lui x în intervalul (— 1,10] 
țrebuie să facem calcule pînă cînd obţinem un termen mai 
mic decît 10 18 în valoare absolută. 

Avînd în vedere că termenii din dezvoltarea lui e” des- 
cresc, la un moment dat, destul de repede, se poate obţine 
o aproximație destul de bună luînd un număr relativ mic de 
termeni. 





Fig, 22.1 
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Functia EXPX calculează valoarea lui e“ pentru o valoare 
dată a lui x. Schema logică este arătată în fig. 22.1. 
X reprezintă valoarea pentru care se caută e“, EXPX 
reprezintă valoarea căutată, X1 este —X iar Yl reprezintă 
valoarea ultimului termen calculat din dezvoltarea în serie. 
Considerînd că eroarea nu trebuie să depășească 19? şi că 
x <Q 1, trebuie să calculăm pînă cînd obținem un termen 
mai mic decît 108 în valoare absolută. 

Programul principal calculează valorile lui e” pentru 
valorile lui x cuprinse între —1 și 1 cu pasul de 0.1. 


i FUNCTION EXPX(X) 

2 X1=X 

3 IF (X.GT,0)X1=X1-2*%X 

-4 ERXPX=1e 

5 N=] 

6 Y1=1.5 

7 3 Y1=Y1/N*X1. 

8 EXPX=EXPy+Y1 | 
9 IFP(Y1.,LT.,1,E8-8,AND ,71.0T,-1.E£-8)G0T0 2 
15 N=N+1 - 
21 GOTO 3 , 
12 2 IF(X.GE.D)EXPX=1 ,/EXPX 
13 RETURN 
34 END 

a DO 1 I=1,212 

2 X=(1-11)*g.1 

3 Y=EXPX (X) 

4 1 WR TE(5,5)X,% 

5 5 FORMAT(! X=*,F4,1,' EXP(X)="*,F8,5) 
6 STOP 

7 END 


REZULTATELE PROGRAMULUI SINT_ 
X=-1.7 EXP(X)= 9.56788 


X==5.9 EXP(X)= 9.49657 
X=-5,8 EXP(X) = 5. 449533 
X=-0e7 EXP(X)= 0.49659 
X=-5.6 EXP(X)= 4.5488] 
X=-=5.5 EXP(X)= 5.62655 
X=-0.,4  EXP(X)= 9.,674932 
X=-9 3  EXP(X)= 9.,74982 
X=-5,2 EXP(X)= 5.81873 
X=-5.1 EXP(X)= 9.92484 
X= 9.5 EXP(X)= 1.999%25 
= 5,1 EXP(X)= 1.19517 
X= 9,2 EXP(X)= 1,22145 
+ X= 5.3 EXP(X)= 1,54986 
X= D,4 EXP(xX)= 1,49182 
X= 5,5 EXP(X)= 1.64872 
X= 5,6 EXP(X)= 1.82212 
X= 5.7 EXP(X)= 2.01375 
X= 0.8 EXP(X)= 2,22554 
X= 0.9 EXP (X)= 2 „45965 
X= 1,5 EXP(X)= 2.71828 
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EXERCIŢII 


1) Ce modificări trebuiesc făcute pentru ca la înstrucți- 
unea, a doua din programul principal să se facă o singură 
operație aritmetică? 

2) Cum trebuie să arate instrucțiunea FORMAT din 
programul principal pentru a apare rezultate sub forma: 


EXP (— 1.9) = %.36788 ș.a.m.d.? 


3) Să se facă schema logică ȘI să se scrie un subprogram 
pentru calculul exponenţialei, în care să se dea ca parametru 
și numărul EPS pentru eroarea maximă permisă, 

4) Este echivalentă instrucțiunea a treia, din subptrogra- 
mul funcție cu instrucțiunea: 


IF(X.GT.9) XI = —X? 


PROGRAMUL 23 


Să se scrie un subprogram pentru calculul valorii unui 
determinant după metoda Gauss. 


Metoda Gauss de găsire a valorii unui determinant constă 
în transformarea determinantului într-unul superior triun- 
ghiular (un determinant care are sub diagonala principală 
numai elemente nule), care are aceeași valoare. Valoarea 
unui astfel de determinant este egală cu produsul elemen- 
telor de pe diagonala principală. 

Pentru a aduce determinantul la o formă superior triun- 
ghiulară se procedează, în felul următor: să presupunem că 
la un moment dat ne aflăm în linia |; vedem mai întîi dacă, 
elementul de pe diagonala principală. din această linie este 
diferit de zero; în cazul cînd acesta este zero se caută pe 
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aceeași coloană sub diagonala principală un element diferit 
de zero. Dacă nu se găseşte un astfel de element, valoarea 
determinantului este (. Dacă găsim un astfel de element 
în linia K, se schimbă linia K cu linia ÎI, schimbîndu-se în 
același timp și semnele la una dintre ele pentru a nu se schimba 
semnul valorii. determinantului. În felul acesta, se obține 
în linia | pe diagonala principală un element diferit de zero. 
Apoi, scăzîndu-se linia | înmulțită cu anumiţi factori din 
liniile care urmează, se poate face ca în coloana 1 să obținem 
sub diagonală numai elemente nule. Se procedează așa înce- 
pînd cu prima linie și se continuă cu următoarele pînă cînd 
se ajunge la ultima liriie, obținîndu-se în final determinantul 
țriunghiular căutat. 

Numărul de calcule fiind relativ mare, și erorile care 
apar în calcule sînt mari. S-a demonstrat că erorile sînt cu 
atît mai mici cu cît elementele de pe diagonala principală 
sînt mai mari în comparaţie cu celelalte elemente ale deter- 
minantului, 

Algoritmul de mai sus se poate modifica după cum ur- 
mează. Fie | numărul liniei la care s-a ajuns (la început 
| = 1). Se caută un element A(JI, K1)'astiel încît-să avem: 


| A(J1,K1) | = max | A(J2,K2) |unde 1 < JI <Nşil < KI <N 
I < J2<N . 
I<K2<N 


Dacă valoarea. acestui element este (G atunci și valoarea 
determinantului este Q. Dacă nu, se schimbă liniile JI și], 
și respectiv coloanele KI și 1, între ele (schimbînd și semnul 
la o linie, respectiv la o coloană). Dacă Jl =lsau Kl=l 
schimbarea corespunzătoare nu se mai face. Se anulează 
apoi elementele de pe coloana I de sub diagonala principală, 
scăzînd din fiecare linie, linia | înmulțită cu un număr. Se 
procedează în acest fel pînă cînd ajungem la ultima linie. 
“Funcha DET găsește valoarea unui determinant după a 
doua metodă. $chema logică este dată în figura 23.1 
| Variabilei DET i se dă la început valoarea 1,-și de fiecare 
dață cînd s-au terminat transformările corespunzătoare 
unei linii, se înmulțeşte această valoare cu elementul de pe 
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DET=I | 
I=lş2 . sep] 


Ki=I 


pam 251 Il, se eaN 

Lă 

e - Ko=I [+], e. .,h 

| i | 

l 

i Jl=J2 
i ”u 

i EA 
Li A 

L 

















| d 

X=A (24) 

! A(CI,K)=A(IJ1,K) 
I1,K)==% 
L 


SACII) 
ACI TI )=A(J,K1) 
A(I,K1)=-X 






Pige 23ele 
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diagonala principală corespunzătoare liniei. După ce ope- 
rația s-a efectuat pentru primele N — 1 linii, valoarea deter- 
minantului este valoarea găsită pînă acum înmulțită cu ele- 
mentul A(N,N) (pentru linia a N-a transformările nu mai au 
sens). | 

În subprogram, în loc să se testeze dacă A(JI, K1) = 
(A (JI, Ki) fiind elementul cel mai mare în valoare Dorută 
din liniile |, 1 + 1, ..., N) se testează dacă |A (JI, K1)| < 
< 10-2. Se face așa "deoarece în calcule, datorită. erorilor, 
s-ar putea obţine valori care sînt practic zero, dar pe care 
calculatorul să le considere diferite de zero. Lucrînd mai 
departe cu astfel de valori, se pot obține depășiri (numere 
mai iari sau mai mici decît cele care pot fi reprezentate în 
calculator) și programul este oprit. 

Programul Drincipal nu face decît să citească matricea 
corespunzătoare determinantului, să apeleze funcția de aflare 
a valorii determinantului și să tipărească rezultatul. 


Pentru testarea funcţiei a fost calculată valoarea deter- 
minantului: 


dB 2 —l 
2 1 3 
—4 1 2| 


Valoarea rezultată în urma executării programului dat este 
chiar valoarea exactă. 


EXERCIŢII 


1) Subprogramul este valabil numai în cazul cînd matri- 
cea din programul principal unde se află determinantul are 
exact 10 linii iar numărul liniilor și coloaneler determinan- 
tului nu trebuie să fie mai mare decît 1%. Ce modificare 
trebuie făcută în subprogramul DET pentru a se putea cal- 
cula, valoarea unui determinant cu un număr mai mare sau 
mai mic de linii și coloane? Ce trebuie remarcat în legătură 
cu programul principal în acest caz? 


| 14! 
10% 


2) Să se facă schema logică și subprogramul funcție 
pentru metoda Gauss nemodilicată. 

'3) Ce se întîmplă dacă în instrucțiunea 5 din funcţia 
DET, | ia și valoarea N? 

4) Cum se poate evita schimbarea semnului elementelor 
unei linii sau ale unei coloane în transformările care au loc? 


1 FUNCTION DET(A,N) 
2 DIMENSION A(19, 19) 
3 DET=1. 
4 Nl=N=1 
5 DO 1 1=1,N1 
6 Jl=I 
4 KI=I 
8 DO 15 J2=I,N 
.9 DO 19 K2 =I N 
39 “IF(ABS (A(J1 11) ) „GE ABS (4 (12 ,K2) ) )GOTO 19 
22 J1=J2 
i2 K1=K2 
13 14 CONTINUE 
14 IF(ABS(A(J1,K1) ) .GT7.1.,£-25)G0T0 11 
15 DET=5 
16 RETURN 
17 11 IF(IJ1,EQ.L)GOTO 12 
18 DO 5 K=I,N 
19 X=A(1,K 
25 A(I,KI=A(I1,K) 
21 5 A(J1,K)==X 
22 12 27 (el Bai Jcono 13 
23 O 6 J=I,N 
24 X=A(9,I) . 
25 ACI, I=A(I,KI) 
26 6 A(I,K1)=- 
27 13 Ii=I+i 
28 DO 39 J=11 
29 IF(A(J, 7) „30 „d)eoro 3 
3g X=A (,1)/A (1,1) 
31 DO 7 K=I1, N 
32 7 ACI) =A (pKa (1) 
33 3% CONTINUE 
34 1 DET=DETIA (1, I) 
35 DET=DET+A(N'N) 
36 RETURN 
37 END 
1 DIMENSION A(15,14) 
2 __ READ(1,1)N 
3 2 roni 22) 
4 DO 21 
5 2 DEAD San (A(T,9) ,9=1,N) 
6 3 FORMAT(12F7 3)! 
7 X=DET(A,N y 
8 WRITE (3, 4)X 4)X 
9 4 FORMAT( VALOAREA DETERMINANTULUI ESTE X=',79,3) 
A i 


REZULTATELE PROGRAMULUI SINT_: 
- VALOAREA DETERMINANTULUI ESTE X=  -38.,7925 
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PROGRAMUL 24 


Să se facă un subprogram pentru vezolvarea unui sistem 
hnear de N ecuații cu N necunoscute prin metoda Gauss. 


Metoda Gauss pentru rezolvarea, sistemelor lineare de 
ecuații este asemănătoare cu cea pentru aflarea valorii unui 
determinant (vezi problema. 23) cu deosebirea că transfor- 
mările care se fac cu liniile se fac și cu termenii liberi cores- 
punzători, iar după ce se obţine forma superior triunghiulară 
a matricei coeficienţilor, se află succesiv valorile: X(N), 
X(N — 1), X(N — 2), . > A). Cînd se schimbă două linii 
între ele, nu mai este nevoie să schimbăm și semnele la una 
dintre ele, deoarece, prin schimbarea ecuaţiilor între ele, 
sistemul rămîne același. Nu este indicat să schimbăm între” 
ele coloanele, pentru că, în acest caz, s-ar schimba și necu- 
noscutele între ele și ar crește volumul de calcul. De aceea, 
pentru micşorarea erorilor de calcul, se caută numai cel mai 
mare element în valoare absolută de pe coloană și nu din 
toate elementele rămase. 

Subprogramul INTERV schimbă două ecuații între ele. 
Această subrutină presupune că primele | — 1 componente 
ale celor două linii sînt nule (sau, în general, elementele ce 
se află în aceeași coloană sînt egale și deci nu mai trebuie 
mutate). 


Subprogramul SISL calculează soluția sistemului de ecu- 
ații lineare. Schema logică a lui este dată în figura 24.1. 
Dacă sistemul este incompatibil sau nedeterminat (este 
cazul similar celui în care valoarea determinantului este zero 
în problema găsirii valorii unui determinant) ne întoarcem 
în programul principal, la o instrucțiune, iar dacă sistemul 
este compatibil unic, determinat ne întoarcem în programul 
principal la altă instrucțiune. De aceea, în schema, logică și 
în subprogram apar RETURN 1 și RETURN 2. 


Programul principal nu face decît să introducă datele în 
memorie, să apeleze subrutina SISL și să scrie rezultatul 
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obținut. În program, în loc de MI și respectiv M2 se trec 
mărcile: instrucțiunilor ce se vor executa după cum apare 
una. dintre cele două situații. Mărcile sînt precedate de sem- 
nul & în instrucțiunea de chemare și sînt puse în ordinea 
corespunzătoare lui RETURN 1 și RETURN 2. Parametrii 
corespunzători în subprogram sînt cîte un + pentru fiecare 
marcă. Programul a rezolvat același sistem ca cel din pro- 
blema 25. | | 

Durata executării (plus timpul de compilare) a fost cu 9 
secunde mai mică pentru această metodă (compilarea a durat 
cu 6 secunde mai puțin). Evident, pentru un număr mai 
mare de ecuaţii și necunoscute, diferenţa de timp ar îi mult 
mai mare. 


EXERCIŢII 


-1) De ce, în instrucțiunile 29 și 31, B(N — I) şi respectiv 
A(N — 1, N— 1-4 K) nu mai trebuie împărțiți cu coeficien- 
tul lui X(N — I) de pe diagonala principală? 

2) Cum trebuie modificat subprogramul pentru a se 
putea aplica algoritmul lui Gauss modificat (vezi problema 
23) cu ailarea elementului maxim din toate elementele ră- 
mase? 


2 DIMENSION A(15,19),5(14),x(19) 
2 READ (1,1)N 
3 1 FRATI) 
4 DO 1 
5 15 ARĂ E I),9=1 Ei 
6 2 FORMAT 17F8,33 
7  READ(1, 20(Bt2), I=1,N) 
8 CALL SISL(A,B să 11,£9) , 
9 —A1:WRITE(5,12)(1,X(19,I=Â,N) 
15 12 FORMAT(! 5%, AC 72) iz ,E15.7) 
11 STOP 
12 9 WRITE (3,14) 
13 14 FORMATI! SISTEM INCOMPATIBIL SAU NEDE TERMINAT?) 
14. STOP 
15 END 
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SUBROUTINE SISL(A,B 
DIMENSION A(14, (A 82%, Pie (19) 


NI=N= i 
DO 3 1=1,N2 

IIzI 

DO 20 I2=I,N 


TR(ABS(ACIĂ, I)) GB„ABS (A(12,1)))G070 2g 
CONTINUE 

IP(A(I1,1) EQ.f)RETURN 2 
IF(11.£0.1)GOT0 15 

CALL INTERV(A,B,I,I1,N) 

Y=A (Ta) 


O 5 I=I,N 
A(I,)=A (1,9) /X 
B(19=B(1)/Y 
TIzI+1 


DO 6 J=I1,N 
IF (A(J3 1) eEQ.4)GOTO 6. 
(J, D 


DO 8 = N 


8 A(I,K)zA(I,K)=Y mA (1,K) 


NI O 


SE) 
CI) 


[E 


B(I9=B(J) “407 ) x 
CONTINUE 

CONZI 

TF(A(N NON) „20 „6 RETURN 2 
X(N)=BÎN)/A | A(NSN) „N) 


he: 
X (N=I )=X(N=1)=A(N=I, N=I1+K) *X (N=I+K) 
CONTINUE 

RETURN 21 

END 


SUBROUTINE INTERV(A,B,I,K,N) 
DIMENSION A(15,19),B(155 ' 

DO 1 J=1,N 

Y=A(I,0), 

A(I,9)=A (KU) 

A(K 


J)=Y 
SSI) 
TR) 
B(K)=Y 
RETURN 
END 


REZULTATELE PROGRAMULUI SIN? _$ 


X( 1)= 9.1099%90le 1. 
X( 2)= 4.1999999E g1 
X( 3)= 0.300000B£E 91 





PROGRAMUL 25 


Să se scrie un Drogram pentru rezolvarea unui, Sistein linear 
de N ecuații cu N necunoscute după vegula lui Cramer. 


Dîndu-se sistemul: 


ATEI + di9%3 + ... + dinăn — b, 
doX A+ (o9X%9 -+ ... -+ dona — ba 


Aiă + Anoo kt »-. + Annăn = ba 
soluția lui, în general, este dată de relaţiile: 
x =A|A 4= 1,2, ...,n 


unde A este determinantul matricei coeficienţilor, iar A, este 
determinantul care se obține din determinantul A prin 
înlocuirea. coloanei ş cu coloana termenilor liberi. 

Sistemul este compatibil unic determinat (are o soluţie) 
dacă A =£ 0. Dacă A = O atunci fie A, £ 0 şi atunci sistemul 
este incompatibil, fie A, =0 și aturici sistemul este compa- 
tibil nedeterminatt. 

Subrutina DETXI dă o matrice care are aceleași elemente 
ca matricea A în afară de.coloana 1 care este înlocuită cu 
elementele vectorului B. Schema logică a acestei subrutine 
este arătată în fig. 25.1. 

Pentru rezolvarea acestei probleme mai este folosit și 
subprogramul funcție DET din problema 23. 

Programul Brincipal găsește soluția, sistemului (dacă 
există o singură soluție) sau, în caz contrar, dă mesaje cores- 
punzătoare. 

Schema logică este arătată în fig. 25.2. 

A este matricea coeficienţilor, B este vectorul termenilor 
liberi și C este o matrice de lucru de aceleași dimensiuni ca 
șI A, 





4 Vezi și exerciţiile 2 și 3. 
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Programul a fost testat pentru rezolvarea următorului 
sistem de ecuaţii: 


X— y+4+2= 5 
2 + y—32=—5 
—x+4y— z= 4 


a DIMENSION A(16,19),c(15, 15) „B(18)„X(15) 
2 READ(1,1)N 
3 1 FORMAT(I2) 
4 DO 61 
5 6 FEAD( 2" (A(1,9),d9=1,N) 
6 2 FORMAT(19F8.3) 
7 READ(1,2) (s), I=1,N) 
8 DO 8 I=1,N 
9 DO 8 J=1,N 
19 8 C(I,9)=A(1,u) 
11 D=DET (C,N 
12 IF(D.EQ.9)G070 3 
13 DO 7 I=1,N 
14 CALL DEE CI N,A,B,C) 
15 7 X(1)=DET(C,N3/D 
16 “ WRITE(3,4) 4) (CIC) az 
21 4 FORMAT SOLUTIA DIAZ 0% pr" „12120 814.17) 
ST 
19 3 CALL DETXI (1,N,A,B,C) 
25 - DI1=DET(C,N) 
21 IF(D1,E9.4)GOT0 12 
22 WRITE (3,14) 
23 14 FORMAT(*! SISTEMUL ESTE INCOMPATIBIL*) 
24 STOP 


25 12 WRITE(3,15) 
26 15 FORMATI î SISTEMUL ESTE COMPATIBIL NEDETERMINAT' 3 


27 * ' STOP 

28 END 

1 SUBROUTINE DETXI (1,N,A,B,C) 

2 DIMENSION A (19 19) B B(15) „C(15,19) 
3 DO 1 K=1,N 

4 IP (£ „BOL )Gozo 1 

5 DO 3 J=1,N 

$ 3 CCI pe) sall) 

8 11 GONZINUE 

9 DO 4 IJ=1,N 

18 4 C(d,k)=Bld) 

11 1 CONTINUE 

12 RETURN 

13 BND 
REZULTATELE PROGRAMULUI ŞINT_ș e 

SOLUTIA ESTE 


1= 9.,1000008E gl 
: 2= D.2000098£ 21 
X 3= D,300P007E 91 


La 
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EXERCIŢII 


]) La rezultat apar patru de X, și nu trei cum ar trebui 
să apară. Care este explicaţia acestui fapt și cum se poate 
înlătura aceasta? 

2) Este adevărată afirmaţia că dacă A = O și A = 
atunci sistemul este compatibil nedeterminat? De ce? 

3) Să se modifice programul pentru a. fi corect din punct 
de vedere matematic. 

4) Se poate ca valoarea lui A să fie G dar din cauza erori- 
lor de calcul să dea o valoare diferită de zero. Folosind această 
valoare în continuare s-ar putea obține numere care nu pot 
fi memorate în calculator. Cum se poate evita acest lucru? 
La fel se poate întîmpla și cu A,. Care sînt modilicările ce 
trebuie făcute în programul principal? 


PROGRAMUL 26 
Să se calculeze inversa unei matrici. 


O metodă de rezolvare a acestei probleme este următoa- 
rea: se transpune matricea, se caută. complemenții algebrici 
ai fiecărui element și aceștia se împart prin valoarea deter- 
minantului corespunzător matricei inițiale. Complementul 
algebric al unui element g;; dintr-o matrice patrată este 
valoarea determinantului obținut din matrice prin scoaterea 
elementelor din linia 7 și coloana Ș, luată cu semn schimbat 
sau nu după cum s + este impar sau nu. 

Subprogramul INVMAT inversează o matrice pătrată 
după această metodă. Matricea care trebuie inversată este 
A iar rezultatul se obține în matricea B. N reprezintă numă- 
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|_D=DET(A,N) 
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Nu 
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I]l=1y2, o... N |. 


Jl=1,2, ceaN 
BI(I1,J1)=B(11,91) 
L__— ZII 
—— K=]l 2, o..,N 


N =13 

| 

| B1(1,K)=6 
L_ B1(K,J)=p 


= 
| | 
| 
| 
| 


B2(13J)=DET(B1,N) 


R--—-- 


l B(1șJ)=B2(14J)/D 


(RETURN ) 


Fig, 26.1 


rul de linii și de coloane ale matricei. Este folosit un subpro- 
gram pentru calculul unui determinant (problemele 12 și 23). 


Se calculează determinantul matricei A și dacă este nul 
matricea nu este inversabilă; dacă nu este nul atunci în B 
se trece transpusa matricei A apoi se calculează într-o matrice 
B2 complemenții algebrici ai elementelor matricei B cu aju- 
torul unei matrice BI în care se pun elementele matricei B 
în afară de cele din linia 1 și coloana ] care se înlocuiesc cu 
GO iar Bl (I, ]) se înlocuiește cu 1. Calculînd determinantul 
unei astfel de matrice Bl, se obține chiar complementul 
algebric al elementului B(1, ]). După aceea elementele matri- 
cei B2 se împart cu valoarea determinantului matricei A și 
rezultatele se pun în matricea B. 

Schema logică a acestui subprogram este dată în fig. 
26.1. La terminarea executării programului, elementul 
B(N + 1, 1) conţine valoarea (O dacă matricea este neinver- 
sabilă și valoarea 1 în caz contrar. 


Programul principal inversează matricea următoare: 
1 2 1) 
- O 2 


O 11 


EXERCIŢII 


1) Este necesar ca în subprogram, în matricea Bl să se 
facă (G atît linia | cît și coloana J? 


2) Se poate folosi în loc de matricea Bl sau B2 matricea 
B în subprogram? 


3) Să se scrie un program pentru.rezolvarea unui sistem 
linear de N ecuaţii cu N necunoscute folosind subprogramul 
din această problemă. 
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2 PERerale O to toti mu onaa „azi 
2 DIMENSION A B Bl aB 
5 D=DET(A N) , : di 
4 IF(D„NE.9)GOTO 1 
5 B(N+1,1)=5 
6 RETURN 
7 1 DO 2 I=1,N 
8. 2 J=13N 
9 2 B( 1,7 )=AlI,1) 
15 DO 5 I=1,N 
11 DO 3 J=1,N 
12 po 4 II=1,N 
15 4 JI=1,N 
14 4 Bu, J1:)=B(11,91) 
15. O 5 K=1,N 
16 D022 
17 5 B1(k 30) =Be 
18 BI(1J)=1 
29 5 sa „dedat a 
25 DN 
21 
22 6 B(r,9d-82(7,3)/9 
23 B(N+1,1)31e 
24 RETURN 
25 END 
2 DIMENSION A (19, 15) „B(16, 145) 
2 DATA A/1e3=3.98 dei o BnleBe 1,2 e 38*1e/ 
3 CALL INVMAT(A,5 
4 IF(B(4 2) ;34 „doo 15 
5 DO 21 
6 > WRITE(3, „cec, I) 492135) 
7 3 FORMAT( * * 33F 8.5), 
8 _ STOP 
9 15 WRITE(3,16) 
2 36 FORMAT(1H p*MATRICEA NU ESTE INVERSABILA!) 
a STOP 
22 END 


REZULTATELE PROGRAMULUI SINT : 


'9.81981 4.217927-0, 62162 
7 .81981-0,2179217 ] 1.+62162 





PROGRAMUL 27 


Să se facă un subprogram de inversare a unei matrice prin 
metoda eliminăru. 
i 


Metoda. eliminării pentru inversarea matricelor pătrate 
constă în următoarele: se pune alături de matricea, dată o 
matrice unitate de aceeași dimensiune și apoi împărțind 
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LAM | 
e ——— ETA] A ee It) 
| a Ir 
| | | p== 
a“ A 
| Nu ÎMI Nr) A (E N+I) 
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liniile celor două matrice cu anumiți factori și scăzînd unele 
linii din altele se poate obține în prima matrice, matricea 
unitate iar ceea ce se obține în partea adăugată este matricea 
inversă. 

Trecerea la matricea unitate se face împărțind pe rînd 
fiecare linie a matricei date şi a celei adăugate prin elementul 
ce se află pe diagonala principală în matricea dată și apoi se 
scade această linie înmulțită cu anumiţi factori din celelalte 
linii pentru a se obține elemente nule pe coloana. de același 
rang cu linia pe care ne ailăm. Dacă elementul de pe diago- 
nala principală este nul se caută pe aceeași linie un element 
nenul. Dacă nu se găsește, matricea este neinversabilă. 
Dacă se găseşte unul se schimbă între ele în matricea dată 
două coloane pentru a aduce pe diagonală elementul nenul 
și în matricea adăugată cele două linii corespunzătoare și se 
efectuează operaţiile descrise mai sus. 

După ce am obținut mâtricea unitate în matricea dată 
se restabilește ordinea de la început a liniilor matricei adău- 
gate şi matricea obținută este inversa matricei. 

Subprogramul INVMAT calculează inversa unei matrice 
după metoda expusă mai sus. Schema logică este dată în 
fig. 27.1. Matricea A este matricea în care se face inversarea 
matricei. La început, ea conţine în primele N coloane matri- 
cea, dată, iar în următoarele N coloane, matricea unitate, iar 
la. sfîrșit conţine în primele N coloane matricea inversă. 
Elementul A(N + 1, 1) conține O dacă matricea este nein- 
versabilă și 1 în caz contrar. B conține matricea dată iar 
vectorul Ll înregistrează schimbările de linii ce au loc în 
timpul calculelor. 

Programul principal inversează următoarea matrice: 


1 21 
—3 9 2 
O 11 


Trebuie să atragem atenția asupra faptului că matricea 
A din programul principal corespunde matricei-B din subpro- 
gram și matricea B din programul. principal corespunde 
matricei A din subprogram, iar prima dimensiune în matri- 
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1] — Programe în limbajul FORTRAN 


cele corespunzătoare din programul principal și subprogram 
coincid. 


EXERCIŢII 

1) Să se îmbunătățească, subprogramul și programul 
principal din punctul de vedere al alocării memoriei, al timpu- 
lui de calcul, al numărului instrucțiunilor și al facilității de 
întrebuințare a subprogramului. 


a SUBROUSINE INYMAT(BN,A3 
2 DIMENSION 4(4, 1),B(3, Ni) »L1( 1543 
5 N2=N+2 
4 DO 1 I=1,N 
5 O 3% J=1,N 
6 A(7pa)=Blz,9) 
7 3 A(Z,9eN)ag, 
8 D0 6 Tsl,N 
9 A (INI) 
19 6. LI(Der 
U D0 151 
12 Tv 7) "20.600 8 
13 7 X=A(I „E 
14 DO 9 K=1 
15 9 ACI RAI K)/X 
16 DO 1g K=1,N 
17 IF(KeEQ„1$GOT0 14 
18 X=A (K,1) 
19 IP (X.EQ.9)GOT0 14 
25 DO il J=1,N2 


21 11 A(K „IA, I-AI 39) 4% 
22 15 CONTINUE 


23 DO 12 I=1, N 
24 DO 12 y 

25 32 ALI) CIA CI pd%a7) 
26 A(N+1,1)z1, 

27 RETURN 

28 8 K=I+ 

29 17 IF(K.GT:N)GOTO 15 
35 IF(A(1,K) „NE.4)GOTO 16 
31 EOK 

32 

33 15 CNE) =p 

34 RETURN 

35 16 L=Li(I) 

36 LI(I)sLa(K) 

37 LI (K)=L. 

38 DO 19 J=1,N 

39 -R=A(K, ai 

45 A(K, + )=A (1, N+J) 
4 A (I2N+9 =R 

42 R=A(9,K) | 

45 ACI KIA (9,19 

44 19 A(J,1)= 

45 GOTO 

46 END 
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DIMENSION AȚ3,3)„B(4, 8) 
DATA A/1.-3 . 9.2 Dol yley2e5l / 
CALL INVMAT(A,3 
IF(B(4, PA za 45600 15 
DO 2 12143 
2 WRITE (3, 5 (acu, 39) 39213) 

3 FORMAT? ! 3F8 25) 
SToP 

15 WRITE(3,18) 

18 FORMATI | MATRICEA NU ESTE INVERSABILA!) 


= 
POO 03 DUIPIUI 10 ni 


[E 
N 


REZULTATELE PROGRAMULUI SINT: 


-2 „DP00-1 „22325 4 „097505 
3e 3.99% 935 1 ,99995-5 - 5.27 999 
3 ,00005-1 90095 6.0009 





PROGRAMUL 28 


Dindu-se două legi de compoziţie pe o mulțime finită, să 
se studieze proprietățile acestor legi precum și structura definită 
de ele pe această mulțime. 


Deoarece orice mulțime finită de N elemente se poate 
pune în corespondență biunivocă cu mulțimea numerelor 
l, 2, ..., N putem considera că aceasta este mulțimea pe care 
sint definite cele două legi de compoziție. 


Trebuie să vedem care din următoarele proprietăți posedă 
fiecare dintre cele două legi de compoziție: 1) dacă este peste 
tot definită, 2) dacă este asociativă, 3) dacă este comutativă, 
4) dacă există element unitate, 5) dacă fiecare element are 
un invers, 6) dacă una dintre legi este distributivă față. de 
cealâltă,. 


1) O lege de compoziţie T este peste tot definită în mulţi- 
mea, M dacă fiecărei perâchi de elemente din M face să-i cores- 
pundă un element tot din mulțimea M. În cazul nostru, 
pentru orice 1, JE(1,2,...,N) trebuie ca IT ] să fie un număr 
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cuprins între 1 și N. Subprogramul care verifică această 
proprietate este dat ca exercițiu (vezi exercițiul 1). În cele 
ce urmează vom presupune că „această proprietate a fost 
verificată. 

2) O lege de compoziţie T este asociativă dacă este ade- 
vărată relaţia; 


CTDTK=ITUTK) pentru VL J, Ke(1,2,...,N) 


Subprogramul ASOC verifică această proprietate. Matri- 
cea A este o matrice de tip întreg ale cărei elemente sînt 
AU, |) = IT]. Variabila M ia valoarea 1 dacă legea este 
asociativă și 9% în caz contrar. Schema logică este dată în 
fig. 28.1. | 

3) O lege de compoziţie T este comutativă dacă este 
adevărată relaţia: 


ITI=JT1 pentru 1,J=1,2,...,N 


Cu alte cuvinte, legea de compoziție este comutativă dacă 
matricea, corespunzătoare ei este simetrică. 

Subprogramul COMUT verifică această proprietate. Ma- 
tricea A este cea definită anterior iar variabila M ia valoarea 
1 dacă legea este comutativă și (O în caz contrar. Schema 
logică este dată în fig. 28.2. 

4) O lege de compoziție T are element unitate dacă există 
un element Le!l, 2, ..., N! astfel încît să aibă loc relația: 


LTI=1TL=I-pentru 1=1,2,...,N 


Găsirea elementului unitate se face luînd fiecare valoare și 
compunînd-o pe rînd la stînga și la dreapta cu toate nume- 
rele între 1 şi N. Dacă există un element care compus cu toate 
elementele le lasă neschimbate, acela este elementul neutru. 

Subprogramul NEUTRU verifică această proprietate. 
Variabila. M ia valoarea 1 dacă există element unitate și O 
în caz contrar iar L conţine elementul neutru sau 8 (dacă 
nu există element unitate). Schema logică este dată în 
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fig. 28.3. Testarea celor două egalități din schema logică 
este echivalentă cu testarea egalității: 


(J — AG, DE+ OU — AJ, DP=9 


5) Dacă legea de compoziție are element neutru L, un 
element 1 este inversabil dacă există un element J] astfel 
încîi 

IT]=JTI= 


Subprogramul INVERS verifică dacă orice element este 
inversabil. Schema logică este dată în fig. 28.4. Variabila M 
ia valoarea 1 dacă orice element este inversabil și O în caz 
contrar. 

6) O lege de compoziţie T este distributivă față de o lege 
de compoziţie | dacă au loc egalităţile: 


(UT J)LK=ULK)T(JLK) și KLUTD=(KLDT(KL]) 
pentru ÎI, J,K=1,2,...„,N 


Subprogramul DISTR verifică această proprietate, Schema 
logică a lui este aceeași ca pentru asociativitate în afară de 
blocul de testare în care trebuie înlocuită egalitatea după 
cum urmează: 


B(I, A)J, K)) = A(BU, J), BC, K)) & B (AC, ]), K)= 
= A(BU, K), B(J, .K)) 


Variabila M ia valoarea 1 dacă legea A este distributivă față 
de legea B şi ( în caz contrar. 


Subprogramul GRUP verifică - proprietățile pe care le 
posedă o lege de compoziţie. Schema logică este dată în 
fig. 28.5. Variabila I arată dacă este asociativă, ] dacă există 
element neutru, K dacă fiecare element are un invers, M 
dacă legea de compoziție este comutativă iar L dacă legea 
de compoziţie dă o structură de grup sau nu. E teprezintă 
elementul neutru. 

Programul principal citește matricele corespunzătoare 
celor două legi de compoziție internă, activează subprogra- 
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mul GRUP pentru fiecare dintre ele și dă proprietăţile pe 
care le posedă cele două legi de compoziție. Deși conţine un 
mare număr de instrucţiuni, programul este ușor de urmărit 
și nu necesită o schemă logică. Programul a fost testat pentru 
N = 5 și pentru următoarele legi de compoziţie: 


A|12345 B|12345 
ITITIII IȚIZ345 
2112345 2]23451 
31135.24 3|3 4512 
4|14253 4|45123 
5|15432 5|51234 


care sînt asemănătoare cu operaţiile de înmulțire și 
respectiv adunare din Z;. 


EXERCIŢII 


]) Să se scrie un subprogram funcţie care 'să verifice 
dacă o lege de compoziţie internă pe o mulțime finită este 
peste tot definită sau nu. 


2) Cum trebuie modificate subprogramele INVERS, 
GRUP și programul principal pentru a vedea; dacă mulțimea 
înzestrată cu cele două legi de compoziție formează un corp 
sau nu? 


3) Ce modificare se poate face în subprogramul COMUT 
pentru a micșora numărul de calcule? 


4) Să se scrie instrucțiuni echivalente cu instrucțiunea 
a 5-a din subprogramele NEUTRU și INVERS care să nece- 
site mai puține calcule. 
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SUBROUTINE ASOC(N, A) 
INTEGER A (16, 18) 


1,N 
ZFAAC sI) st) (1 4(9,k)))2, 1ş2 
1 CONTI 


SUBROUTINE COMUT(N,AM) 
INTEGER A(19,19) 

DO 1 = LN | 
DO 1J 

IE(A(I Edda 72, 1,2 


SUBROUTINE NEUTRU(N AM, L) 
INTEGER A (15,14) 
DO 3 I 121 N 

A IEC CI-AL Caci 2) Dan24(3-4(9 41) a%2)1, 232 


Bio o-iamaunn Ho ozowaunh Rbbooaauaun 


SUBROUTINE INVERS (N,AL,M) 
INTEGER A(15,19) 
20 i 121, N 


TE (zac CAE) an2+(Loa (II) ) *x2)2,1,2 


IŢI 
PPăonaawauvh 
Va 
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SUBROUTINE DISTR(N,A BI) 
INTEGER 41219), „Big 


IF((B(I SACI E )-A(B(, I) „BC ok) ez (BCA (120) ke) 
„ABUZ, B(9,X))*x2)2,1,2 


INTEOER A(ap 18),B(34,15) 
_INTEGER 
READ (1,30ÎN 


DO 2 
2 READ L,3) Acra), „J=1,N) 


I=1 
1 READ(2 3) (BUT) 3J=1,N) 
55 FORMATI 4512 
CALL ic ATA JA KA DA MA) 
CALL GRUP(N, B, „IB pb LB, '4B) 
IF (IA .EQ.5 96070 
WRITE(5, 45) 
45 FORMAT(! LEGEA A ESTE ASOCIATIVA!) 
3 IF(IA EQ +7)G0T0 4 
WRITE(3 75 
5 FORMAT(! LEGEA A ARE ELEMENT NEUTRU!) 
4 IF(KA,EQ.2)GOTO 5 
WRITE(3,64) 
65 FORMATI! FIECARE „ELEMEN? ARE UN INVERS FATA DE LEGEA A') 
5 IF(LA.EQ.9)GOTO 6 
WRITE( 5,7 70) 
70 FORMAT(* LEGEA A ESTE O LEGE DE GRUP!) 
IP(MA „EQ .5)GOTp 6 
WRITE(3,86) 
84 PORMA T( IEGEA A ESTE O LEGE DE GRUP COMUTATIV!) 
6 IF(IB,EQ.7)GOTO 7 
WRITE(3,99) 
94 FORMAT(* LEGEA B ESTE ASOCIATIVA') 
7 IF(IJB.EQ.5)GOTO 8 
. WRITE(3,100) 
1795 FORMAT(! LEGEA B ARE ELEMENT NEUTRU!) 
8 IF(KB.EQ.2)GOTO 9 
WRITE (3,119) 
124 FORMAT(î FIECARE ELEMENT ARE UN INVERS FATA DE LEGEA B*) 
9 IF(1LB,EQ.5)GOTO 15 
WRITE(3,125) 
125 FORMAT(! LEGEA B ESTE O LEGE DE GRUP*) 
IF(MB.EQ.5)GOTO 15 
WRITE(3,134) 


134 FORMATI! LEGEA B ESTE O LEGE DE. GRUP COMUTATIV?') 


19 IF(LA EQ 1,AND IB.EQ 1 „AND MA „EQ ,1)GOTO 11 

13 WRITE(3,145) 

149 FORMATI Î LEGILE A SI B NU DAU STRUCTURA DE INEL") 
GOTO 12 

11 CALL DISTR(N,A,B,Q) 
IF(Q EQ .9)GOTO 13 
WRITE (3,154) 

159 F ORMATI( ? LEGILE A SI B DAU O STRUCTURA DE INEL!) 
IF( NOT (MB. EQ 1 „AND J8,EQ.1) )GOTO 14 
WRITE(3, 164) 
FORMAT(* LEGILE A SI B DAU O STRUCTURA DE INEL 
CCOMUTATIV CU UNITATE!) 
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STOP | | 
53 14 IF(MB.EQ.9)GOT0 15 
54 WRITE (34179) 
55 179 PORMAT(! 14 
56 15 IP(9B.BQ,5)STOP 
57 WRITE (3 180) 


LEGILE 4 SI B DAU 0 STRUCTURA DE INEL COMUTATIV?) 


58  10p FORMT(! LEGILE A SI B DAU O STRUCTURA DE INEL UNITAR!) 


STOP | 
65 12 IP(LB.EQ.1 „AND „MB EQ 1 AND „IA EQ. 1)GOTO 16 


61 37 WRITE(5,199) | 
62 190 FORMATI! LEGILE E SI A NU DAU STRUCTURA DE INEL!) 
70 


STOP . 
64 16 CALL DISTR(N,B5A,P) 


65 e (P BQ„B)COTO 
R 
C? 205 WRITE 02 BILE B SI A DAU O STRUCTURA. DE INEL!) 
68 ZE (MA „20.08 JA „EQ +0) GOTO: 18 
RITE (3,21 
59 mp WI ACi 190112 B SI A DAU O STRUCTURA DE INEL COMUTATIV 
CUNITAR*) 
n STOP 
72 18 IF(MA.EQ.5)GOTO 19 
75 WRITE(5,220) 


74  20p FORMATI! LEGILE B SI A DAU O STRUCTURA DE INEL COMITATIV!) 


75 19 IP(JA.,EQ.9)STOP 


6 WRITE (3,237) | 
17 20p FORMATI! LEGILE 8 SI A DAU 0 BTRUCTVRA DE INEL UNITAR!) 
78 STOP 
79 END 

2 INTEGER A(19,19),E 

3 CALL ASOC(N,A,I) 

4 5 CALL COMUT(N,A,M) 

5 CALL NEUTRU (N,A,J,E) 

6 IF(J.EQ,1)0070 i 

7 K=5 

8 G0To 2 . 

9 1 CALL INVERS (N,A,E,K) | | 
19 IP(I EQ 1 AND UE ele AND „K „EQ .1)G0YT0 3 
11 2 1=f ) 

12 8070 6 
15 3 Lai 
14 6. RETURN 
15 END 


REZULTATELE PROGRAMULUI SINT_: 


- LBOEA A ESTE ASOCIATIVA 
LEGEA A ARE ELEMENT NEUTRU 
LEGEA B ESTE ASOCIATIYA 
LEGEA B ARE ELEMENT NEUTRU 
FIECARE ELEMENT ARE UN INVERS FATA DE IBGEA B 
TEGEA B ESTE O LEGE DE GRUP 
LEGEA B ESTE O LEGE DE GRUP COMUTATIV 


LEGILE A SI B NU DAU STRUCTURA DE INEL 
LEGILE B SI A DAU O STRUCTURA DE INEL | 
LEGILE B SI A-DAU O STRUCTURA PE INEL COMUTATIV UNITAR 


PROGRAMUL 29 


Să se verifice.dacă o relație pe o multime finită este relație 
de echivalență. 


Fie fa,, az,...-, au? mulțimea finită și să notăm cu ss 
relația. Relaţia o indicăm printr-o matrice A cu N linii și 
N coloane; elementele matricei sînt întregi și valoarea lor 


este dată de: 
[i 


1 dacă n 2aj 


AG) = | 


Functia REFLEX verifică dacă relaţia este reflexivă (adică 
dacă matricea are toate elementele de pe diagonală egale 
cu 1). În caz afirmativ, variabila REFLEX primește valoarea 
l, iar în caz negativ REFLEX primește valoarea 9. Schema 
logică apare în fig. 29.1. | 

Funcţia SIMET verifică dacă relaţia este simetrică (adică 
dacă matricea A este simetrică). În caz afirmativ, variabila 
SIMET ia valoarea 1, iar în caz negativ variabila SIMET ia 
valoarea (. Schema logică apare în fig. 29.2. 

Functia TRANZ verifică dacă relaţia este tranzitivă. 
Variabila TRANZ primește una dintre valorile 1 sau O după 
cum relația este tranzitivă sau nu. Condiţia de tranzitivitate 
este 'satisfăcută dacă avem implicația A(I, ]) + A(J, K) = 1> 
=> A(, K) = 1 pentru orice |, J, K diferiți între ei. Schema 
logică apare în fig. 29.3. | 

Programul principal. Se citeşte matricea atașată relației. 
Se verifică pe rînd dacă relaţia este reflexivă, simetrică și 
tranzitivă. Dacă una dintre aceste proprietăți nu este satis- 
făcută, este tipărit un mesaj și programul este oprit. Dacă 
toate proprietățile sînt satisfăcute, este. tipărit un mesaj 
care specifică faptul că relația este o relație de echivalență. 
Programul a fost verificat pentru matricea M din fig. 29.4. 


O dacă a aj 
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12, cos 


K 





Fig, 29,1e 


203 cop 





1= 


Fig, 29.5, 
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Fig, 29 


“de 


Fig, 29 
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EXERCIŢII 


1) În subrutina SIMET este echivalentă testarea A(I, ]) = 
— A(J, I) cu testarea AC, ]) + A(J, ID) 1? Poate fi folo- 
sită această înlocuire pentru verificarea simetriei unei matrice 
oarecare? 

2) Funcţia TRANZ a fost scrisă în așa fel încît să poată 
verifica tranzitivitatea unei relații indiferent de faptul că 
această relație este simetrică sau nu. Cum poate fi modifi- 
cată funcţia î în cazul în care știm că relația este simetrică? 

3) În funcția TRANZ se verifică dacă A(I, K) = G doar 
pentru cazul în care atît A(I, ]) cît și A(J, K) sînt egalecu 1. 
Cum poate fi modificată instrucțiunea IF corespunzătoare 
astfel încît să se reducă numărul de calcule? 

4) Poate îi înlocuită instrucțiunea 4 din programul prin- 
cipal cu: 


IF(REFLEX(M, 10). EQ.1) GOTO 2? 
Dar cu instrucțiunea: 


IF(REFLEX(M, 19.).EQ.1) GOTO 2? 


d FUNCTION SIMET(A,N) 
2 INTEGER A(N$ N) 
3 DO 1 I=2,N 
4 Se aia 
po,1l 
2 IF(A(I, ELE A (3, I1))GOTO 2 
i 1. CONTINUE 
8 SIMET=1 
9 RETURN 
19 2 SIMET=B 
11 RETURN 
12 END 
1 FUNCTION TRANZ(A,N) 
2 INTEGER A(N,N) 
3 DO 2 I1=1,N 
4 DO 3 J=1l, “N 
5 IF(I.EQ.1)GOTO 3 
6 DO 4 K=1,N 
7 IF (K.EQ 1 „OR.K „EQ. )GOTO 4. 
8 IF(A(I, J ) „EQ sOR-A (Ii, K) «EQ.95)GOTO 4 
9 IF(A(I, 'K) EQ. 1)GQTO 
DRANZ=B 
11 RETURN. 
12 4 CONTINUE 
13 3 CONTINUE. 
14 2 CONTINUE 
15 TRANZ=I 
16 RETURN 
17 END * 
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INTEGER MU15, 14) 

READ (1,1 

SORA Ti 1071, 4%) ) 

IF( REFLEX (M, 1) „EQ e 1)GOT0 2 

WRITE (3,3) 

eoRuAz(! RELATIA NU ESTE REFLEXIVA') 
IF(SIMET(M,19) EQ. 1)GOT0 4 

WRITE (3,5) 

zoRuAri | RELATIA NU ESTE SIMETRICA") 
IF (TRANZ(M, 14) „EQ.1)GOT0 6 

WRITE(3,7) 

FORMAT( * RELATIA NU ESTE TRANZITIVA!) 
15 STOP 

16 6 WRITE(5,8) | 
17 8 FORMATI RELATIA ESTE DE ECHIVALENTA! ) 


O Da OA AVI N pi 
= 


(5) 
L) 
— ai UD 


FUNCTION REFLEX(A ,N) 

INTEGER „AN, N) 

DO ] 

pr Na, 1)G070 1 
EFLEX:6 


RETURN 

1 CONTINUE 
REFLEX=) 
RETURN 
END 


RO ONAAWIBUINH 


IE) 


REZULTATELE PROGRAMULUI SINT : 
RELATIA NU ESTE SIMETRICA 


PROGRAMUL 30 


Să se scrie un subprogram care să testeze dacă o relație Ze 
0 mulțime finită are proprietățile de rejlexivitate, Stmnelrie şi 
tranzilivitaie, iar pentru relaţii de echivalență să găsească cla= 
sele de echiualență. 


Subprogramul TEST verifică proprietățile din enunț. El 
conține mai multe intrări și anume: 


Intrarea REFLX verifică dacă relaţia este reflexivă, 
Intrarea SIM verifică dacă relaţiă este simetrică. 
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Intrarea  TRANZ verifică dacă relația este tranzitivă. 

Intrarea CLASA găsește clasele de echivalență și tipă- 
rește la imprimantă clasele găsite. 

Primele trei subprograme întorc în programul principal 
cîte o valoare logică (adevărat sau fals) după cum relaţia 
posedă acea proprietate sau nu. 


Subprogramul REFLX este asemănător cu programul 
REFLX din problema 29. Singura deosebire este că putem 
afla dacă A(I) este în relație cu A(D apelînd un subprogram 
numit NUME și care face să apară | în variabila B dacă 
există. relație între A(I) și A(I) și o valoare diferită de 1 în 
caz contrar. Variabilei DI i se dă valoarea TRUE sau FALSE 
după cum relația este reflexivă sau nu. 

Subprogramul SIM găsește perechile de numere I și J 
pentru care A(I) este în relație cu A(J). Pentru aceste numere 
ar trebui ca și A(]) să fie în relație cu A). Dacă această 
proprietate este adevărată pentru orice | și | între 1 și N 
atunci variabila D2 ia valoarea TRUE și deci relația este sime- 
trică iar în caz contrar variabila D2 ia valoarea FALSE. 
Schema logică a acestui subprogram este dată în fig. 30.1. 
Am notat cu A-— B faptul că A este în relațiecu B,cu F 
valoarea. falsă și cu "T valoarea adevărată. 

Subprogramul TRANZ foloseşte aceleași notații ca mai 
sus. Variabila D3 ia valoarea TRUE dacă relația este tran- 
zitivă și valoarea FALSE. dacă relația nu este tranzitivă. 
Schema logică a acestui subprogram este dată în fig. 30.2. 

Subprogramul CLASA presupune că relația este o relație 
de echivalență. Variabila M dă numărul claselor de echi- 
valență, K dă numărul elementelor dintr-o clasă, iar matri- 
cea C memorează clasele de echivalență. După ce un element 
a fost inclus într-o clasă, el este înlocuit cu numărul 1013 
sau cu un alt număr care știm că nu aparține mulțimii con- 
siderate. Schema logică este dată în fig. 30.3. 

'Subprogramul SCRIE tipăreşte rezultatele obținute prin 
testări. Acest subprogram folosește ieșiri multiple. Dacă 
relația nu este de echivalență, după terminarea execuției 
subprogramului se execută, instrucțiunea cu marca cores- 
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Fig. 30.2, 
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punzătoare primei steluțe în instrucțiunea de chemare a 
acestui suborogram iar în caz contrar se execută instruc- 
țiunea cu marca corespunzătoare steluței a doua. Variabilele 
Al, A2, A3 sînt logice și sînt respectiv corespondentele vari- 
abilelor DI, D2, D3 din subprogramul TEST. Pentru înţele- 
gerea acestui subprogram nu este necesară o schemă logică, 


Nu 


Nu 


îi K=249ş e eosi 


/ 


| 

| EPEA nat | 
| 

t . 






Fig, 35.4» 


Subprogramul REL conţine trei intrări, fiecare din ele 
reprezentînd o relaţie și anume: 

— Intrarea RELI (instrucţiunile 5—27) face ca două 
nufnere naturale să fie în relaţie dacă sînt amîndouă 1 sau 
dacă cel mai mic număr diferit de 1 care divide unul din 
numere este același cu cel mai mit număr diferit. de 1 care 
divide celălalt număr (dacă acestea există). Schema logică 


11 
12 


a acestui subprogram este dată în fig. 30.4. B ia valoarea 1 
dacă 1 și ] sînt în relație și O în caz contrar. 

— Intrarea REL2 iinstrucțiunile 28-—33) face ca două 
numere naturale să fie în relație dacă primul îl divide pe al 
doilea. B are aceeași semnificaţie ca în intrarea precedentă, 

— Intrarea RELS3 (instrucțiunile 34—39) face ca două 
numere naturale să fie în relație dacă resturile împărțirii 
primului număr la 6 și a celui de-al doilea la 5 sînt egale. B 
are aceeași semnificație ca mai sus. 

Observaţie: În subprogramul REL se pot introduce sau 
scoate unele subprograme ce reprezintă relații. 'Introducerea 
unei noi relaţii se face introducînd instrucțitinile ce defi- 
nesc relația, ce au ca primă instrucțiune un ENTRY imediat 
înaintea unei alte instrucţiuni ENTRY sau înainte de in- 
strucțiunea END. 

Programul princibal veriiică proprietățile pentru fiecare 
din cele trei relaţii. El este prevăzut să testeze pînă la şapte 
relaţii la o singură rulare. Dacă vrem să testăm și alte relaţii, 
le trecem numele în instrucțiunea EXTERNAL (a 4-a), se 
scoate o instrucţiune m, CONTINUE unde 7, este o marcă 
cuprinsă între 4 și 14 și în locul ei se introduc instrucţiunile: 


m, CALL REFLX (n.r., N, T1) 

CALL SIM (n.r., N, T3) 

CALL TRANZ (n.7., N, 17) 

CALL SCRIE (T1, T3, 17, M, &2, 69) 
ma CALL CLASA (nr., N) 

G0 T02 


unde ma este marca de mai sus, m, este o marcă ce nu mai 
apare în program, iar n.r. este numele relației. 

Relaţiile au fost verificate pentru mulțimea numerelor 
naturale mai mici decît 20. 
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INTEGER A,B,C 

LOGICAL T1,T3,T7? 
DIMENSION A(56) ;C(34,%34) 
EXTERNAL REL1,REL2 “REL3 


READ (153 ML 
READ (1, 3$N 
3 FORMATI 2613) 
READ (1,5)(A (1) 12198) 
CALL REL(A) 
al CALL TEST(A,C) 
12 .G070(4,5,6,4,8,9,19),,M 
13 4 CALL REFLXÎRELI,N, TI 
14 CALI SIM(RELI,N, 73) 
15 CALL DRANZ(REL1, N,TT) 
26 CALL, SCRIE(T1, 75 TM £2,£15) 
17 15 CALL CLASA (RBLI N) 
18 GOTO 2 
29 5 CALL REFLX(REL2,N,T1) 
25 CALL SIM(REL2,N, TI 
2 CALL TRANZ(REL2,N,T 
22 CALL SCRIE(T1,T5, i, A €2,£16) 
23 16 CALL CLASA (REL2,N) 
24 -GOTO 2 
25 6 CALL REPLX (REL3,N,T1) 
26 CALL .SIM(REL3,N TDI 
27 CALL DRANZ(REL3 N 
28 * CALL SCRŢE(T1, SĂ. Fi, , €2,t17) 
29 17 CALL CLASA (RELA, N 
39 GOTO 2 
31 7 CONTINUE 
32 8 CONTINUE 
33 9 CONTINUE 
4 14 CONTINUE 
35 2 CONTINUE 
36 STOP 
37 EAD 
1 SUBROUTINE REL(A) 
2 INTEGER A,B: 
3 DIMENS-LON "A(1) 
4 RETURN 
5 ENTRY RELIL(I,J,B) 
6 IP( „NOT za. 1 „AND 9 «EQ, 1))G0T0 1 
7 B 1 
8 TURN | 
9 1 ZF NOT „(1 «EQ +1 „OR „2Q.1))0020 2 
B= . 
11 RETURN, 
12 2 DO 3 
13 202 NE 7+%) 0070 3 
34 K1=K 
215 GOTO 4 


36 5 CONTINUE 
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17 7 B=-1 


18 RETURN 

19 4 DO 5 K=2,K1 

25 IF(J,„NE „d, /K*K)GOTO 5 
21 IFP(K NE K1L)GOTO 6 

22 B=] 

23 RETURN 

24 6 B=0 

25 RETURN 

26 5 CONTINUE 

27 GOTO 7? 

28 ENTRY REL2(I UR) 

29 IP(IJ NE ,U/I +1 )GOTo 12 
59 B=] 

51 RETURN 

32 11 B=5 Ș 

33 RETURN 

„34 ENTRY REL3(I,J,B) 

36 B=5 

37 RETURN 

38 21 B=i 

39 RETURN 

45 END 
2 SUBROUTINE TEST(A,C) 
2 IMPLICIT LOGICAL(D) 
3 INTEGER A,B,C 
4 DIMENSION 'A (54) ,c(35,39) 
5 RETURN 
6 ENTRY REFLX(NUME,N,D1) 
7 DO 11 I=1,N 
8 CALL NUME (A (1), A(1),B) 
g IF(5.NE,1)GOT0 12 

15 11 CONTINUE 

a D1l=.TRUE e 

12 RETURN 

13 12 DI1=,FAISE, 

14 RETURN 

15 ENTRY SIM(NUME,N,D2) 
16 DO 21 I=1,N 

17 DO 21 J=1,N 

18 CALL NUMEA CI), A(J),B) 
19 IF(B.NE.1)G070'21 

23 CALL NUME(A(J),A(1),B) 
21 IF(B,NE.1)GOTO 22 

22 21 CONTINUE 

25 'D2z «TRUE 

24 RETURN 

25 22 D2=,FALSE, 

26 RETURN 

27 ENTRY TRANZ(NUME,N,D3) 
28 DO 37 I=1,N 

29 DO 35 J=1, N 


174 


4 


42 
45 


" CATI*:NUME (ACT), A (d) BD 
IF(8.NB.1)G0T0'33 
DO 31 K=1,N 

CALL NUMELA (9) ,A(K),B) 
IP(B.NE.1)GOTO '31 
CALL NUME (A (1),A(K),B) 
IF(B.NE .1)GOTO 32 
CONTINUE 

CONTINUE 

CONTINUE 

D3= «TRUE e 

RETURN 

D5= „FALSE, 

RETURN : 

ENTRY CLASA (NUME ,N) 


TE(A (1) EQ. 1913 )G070 m. 
DO 42 J=I,N 
IF(A(J).E0.1913)G070 42 
CALL NUME (A(1),A(J),B) 
IF(B,NE „1)G070' 42 
K=K+1 
C(M,K)=A(J) 
CE A EA (UDA (9) =14613 
CONTINUE 
WRITE (3, 43)M, (C (M,K1),K1=1,K) 
FORMATI? CLASA NR. I2, . CONTINE ELEMENTELE 
C2p(02.14 >) 
A(1)=1915 

M=M+1 


41 CONTINUE 


WRITE(3, 44) 


44. FORMAT(//). 
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RETURN 
END 


SUBROUTINE SCRIE (A1,A2,A3,L1,*,*) 
LOGICAL A1,A2,A3 

IF( „NOT.A15GOTO 191 

WRITE (3,192)L1 

FORMAT( RELATIA" ,13,* ESTE REPLEXIVA!) 


191 IF( „NOT.A2)GO0M 193 


194 
143 


196 
155 


198 


197 
199 


e. 


WRITE (3,194)Ll - 
FORMATI | RELATIA „15,1 ESTE SIMETRICA*) 

IF( NOT.A3)GOTO 145 - 

WRITE (3,106)L1 

FORMAT(î RELATIA*,13,* ESTE TRANZITIVA") 

IP(A1 „AND „A2 „AND „A3)GOTO 197 

WRITE (3,198)L1: | 

FORMAT! RELATIA *,13,* NU EȘTE RELATIE DE ECHIVALENTA") 
RETURN 1 

WRITE(3,199)L1 

FORMAT (* RELATIA! ,13,!' ESTE RELATIE DE ECHIVALENTA"). 
“RETURN 2 

END 
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EXERCIŢII 


1) Se poate renunţa. la unele dintre instrucțiunile CON- 
TINUE din subprogramul TEST? Dacă da, la care din ele? 

2) Ce modificări trebuiesc făcute în subprogramul TEST 
pentru a se activa subprogramele REFLX, SIM, TRANZ și, 
dacă este cazul, CLASA printr-o singură chemare din progra- 
mul principal? 

3) Reduceţi numărul instrucțiunilor din subprogramul 
REL. | 

4) Ce modificări trebuie făcute dacă vrem să verificăm și 
relaţia : I este în relaţie cu ] dacă au același număr de divizori? 

REZULTATELE PROGRAMULUI SINT_: 


RELATIA 1 ESTE REFLEXIVA 

RELATIA 1 ESTE SIMETRICA 

RELATIA 1 ESTE TRANZITIVA 

RELATIA 1 ESTE RELATIE DE ECHIVALENTA 
NTELE - 


? o . 

CLASA NR, 2 CONTINE ELEMENTELE 2, 4; 6, 8,10,12,14,16,18,29%, 
CLASA NR. 3 CONTINE ELEMENTELE 3, 9,15; 

CLASA NR. 4 CONTINE ELEMENTELE 5, 

CLASA NR, 5 CONTINE ELEMENTELE 7, 

CLASA NR, 6 CONTINE ELEMENTELE 11, 

CLASA NR, '7 CONTINE ELEMENTELE 13, 

CLASA NR, 8: CONTINE ELEMENTELE 17; 

CLASA NR. 9 CONTINE ELEMENTELE 19; 


RELATIA 2 ESTE REPLEXIVA 
RELATIA 2 ESTE TRANZITIVA 
RELATIA 2 NU ESTE RELAŢIE DE ECHIVALENTA 
RELATIA 3 NU ESTE RELATIE DE ECHIVALENTA 


PROGRAMUL 31 


Să se treacă de la o velație de preordine la o relație de 
ordine folosind factorizarea canonică. 


Expunem mai întîi pe scurt noțiunile teoretice necesare. 
Fie M o mulţime înzestrată cu o relaţie de preordine: no- 
tată cu s, adică o relaţie care este tranzitivă și reflexivă, 
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Vrem să trecem la o mulțime înzestrată cu o relaţie de ordine 
(adică reftexivă, tranzitivă și antisimetrică). 

Introducem pe mulțimea M relația de echivalență urmă- 
toare: | 
xn y dacă ss <yșiy Să. 


Considerărh mulțimea factor M | =, ale cărei elemente sînt 
clasele de echivalență în care a fost împărțită mulțimea. M. . 


Mai precis, pentru ze M avem = 1yeM]y— x EM/=. 
Pe mulţimea M | — introducem relaţia: 

x <> dacă dae z ȘI ve) cuzS<b 
Se arată că această. relație este o relație de ordine. 

Vom. considera pentru problema noastră mulțimea de 
numere întregi A=— (4—4, —3, —2, —1,1,2,3,4,5,6|. 
Relaţia de preordine va fi divizibilitatea, adică considerăm 
x <y dacă x divide pe y. 

Programul pe care îl descriem realizează numai împărțirea 
mulțimii A, pe care o notăm pentru generalitate cu îa,, 
2 ---» dpi, în clase de echivalență. Relaţia de preordine 
cu care este înzestrață mulțimea A este dată printr-o matrice 
pătrată M de ordinul 10, avînd elemente întregi; MI, ]) 
este egal cu 1 dacă ay divide pe ag și este egal cu 0 în cazul 
contrar. 


Funcțiile TRANZ și REFLEX sînt descrise în programul 


Subrutina SIM împarte cele N elemente ale mulțimii M 
în clase de echivalență. Pentru aceasta introducem un vector 
V ale cărui componente capătă inițial în ordine valorile de 
la 1 la 10. Vrem ca la sfîrșitul executării. subrutinei va- 
lorile elementelor lui V să fie în așa fel modificate încît 
VU) = V(D<—a — aj. În acest fel elementele corespunză- 
toare pozițiilor care au valori egale în vectorul V fac parte 
din 'aceeași clasă de echivalență. 


Se începe cu aflarea clasei lui ax = a,. Variabila Jia toate 
valorile de la 1 la N și imediat ce găsim un element ay cu 
ax." dy (adică A(K, )=1 și A(J, K)=1) punem QV)=1 
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Fige 31,1; 






Citeşte M 
TREFLA (MU, DI 
Nu E & 
| Scrie 
NU ESTE REFEXIVA . 
, ? | PD 
TRANZ(M,19)> si 
Nu 
Scrie 


NU ESTE TRANZITIVA 


STOP |__ȘIM 


Li : 
Uj 
L - MN(1)=I1-5 


Fig. 31.2e 


rr — 
| 
|. 
L— 


pentru a marca faptul că ax și aj aparțin aceleiași clase de 
echivalență. Se verifică apoi dacă au rămas elemente necu- 
prinse în clasele deja create. Odată găsit un astiel de ele- 
ment, Kia valoarea numărului de ordine al acestui element 
în mulțime și se trece ]a aflarea noii clase de echivalență. 

Schema logică apare în fig. 31.1. | 

Programul principal. Se citește matricea M. Pe fiecare 
cartelă apar elementele unei coloane a matricei; elementele 
sînt separate prin cîte 4 blancuri. 

Se verifică dacă relația este de preordine; în caz contrar 
este tipărit un mesaj care indică acest lucru și programul 
este oprit. Apoi se trece la executarea subrutinei SIM. Vec- 
torul N va conţine la sfîrşitul executării subrutinei informația 
referitoare la împărțirea în clase. 

n continuare, sînt tipărite elementele mulțimii iniţiale 
și imediat sub ele sînt tipărite elementele vectorului N. 

Schema logică apare în fig. 31.2. 


EXERCIŢII 


1) Să se modifice subrutina SIM astfel încît la sfârșitul 
executării ei, cel mai mare dintre elementele lui V să fie 
egal cu numărul claselor de echivalență. 


2) Să se scrie o funcţie F care, plecînd de la numerele de 
ordine NI și N2 a două clase de echivalență, să se indice dacă 


AN. SC ue (caz în care F să ia valoarea 1) sau nu (caz în care 
F să ia valoarea 0). Presupunem că există cel puţin cîte un 
element al lui V care are valoarea NI, respectiv NZ. Se va 
face și schema. logică. 

3) Să se scrie un subprogram pentru găsirea matricei 
corespunzătoare relației de ordine între clasele găsite. Rezul- 
tatul va fi înscris în matricea Ml din programul principal 
ca,urmare a apelării subprogramului scris. Se presupune că 
subrutina SIM are forma modificată din exercițiul nr. 1; 
poate fi folosită funcția F construită în exercițiul precedent. 

4) Cum pbate fi redus numărul de calcule în ultimele 
două cicluri DO din subrutina SIM? 
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RUN H bovaapuzunr 


Soozau 


16 


FUNCTION REFLEX(A N) 
INTEGER A (NN ) 
DO 1 I=7,N 
TE(A (1,19 .EQ+1)GOTO 1 
REF LEX 
RETURN. 
1 CONTINUE 
REFIEX=I, 
RETURN 
END 


SUBROUTINE SIM(A ,„N,V) 
3 


INTEGBR A(NN)yV 
DO A I=1,N 


4. D0 2, g=1 


TEME, 220 „408 RUA (0,1) „20.6)G9T0- & 


2 CONTINUE. 
DO: 3 Iz2,N: 
270007) „Î£,K)0079 3. 


FUNC TION TRANZ(AN) 
INTEGER A(N,N) 

DO 2 I=1,N 

DO 3 J= 12N 

IF(IJ.EQ, 1)oro 5 

DO 4 K=1,N 

IR(K „EQ LOR EQ al )GOTA 


IF(A (I,JU) EQ 9 .OR.A(I, £5.£a „Goo 4 


IP(A( Ik) sEQe1.)GOTO Fă 
TRANZ = 


3. CONTINUE: 
TRANZII 


E oaowpaun 


DIMENSION (10,19) „N(12) „MN(19) 


READ (1 
2 FouA TlIg(I1, 4X)) 
IF (REFLEX (M, 1) „EQ ,1:)G070 2 
 WRITB(343). 
3 PoRUATI ? NU ESTE REFLEXIVA") 


STO 

2 IEC PRANZ( 4,19) EQ. 1)GOTa 4 
WRITB(3;,5) 

i POBMAD (* NU: ESTPB; TRANZITPIVA? ) 


12 4 CAUL STM(M, ș15,N) 


13 DO 7 I1=1 
34 7 MN(I)=I- 

16 8 AC AIP 

17 WRITE (3 

18 6 FORMATI! Mo, 3%) ) 
19 WRITE(3,6)N 

25 STOP 

21 END 


REZULTA TELE. PROGRAMULUI ȘINT_: 


-4 3 — a 2 3 
1 2 3 4 4 3 2 


ra 
(o, j 
ba 


PROGRAMUL 32 


Se dă mulțimea A = (1, 2,...,N) și o permulire m de 
grad N. Introducem pe mulțimea A următoarea relaţie de echi- 
valență: 

în j > IRT (0) =] 


Se pune problema găsirii claselor de echivalență în care este 
împărtită multimea A. 


Subrutina CLASA pleacă de la permutarea reprezentată 
de vectorul PERMUT, unde PERMUT (1) = 1) pentru Î = 
1,2, ...,N. 

Elementele vectorului VECTOR primesc în ordine valorile 
1,..., N. La fel ca în programul anterior, căutăm să transfor- 
măm vectorul VECTOR în așa fel încît ]a sfîrșitul executării 
subrutinei să avem 


VECTOR(I) = VECTOR (])o1-J 


Se caută clasa lui K (inițial K = 1). L primește pe rînd 
valorile 7(K), z2(K), ... și elementele de pe aceste poziţii 
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din VECTOR primesc valoarea K pentru a se marca faptul 
că aparţin clasei lui K. La un moment dat, L va primi din 
nou valoarea K (grupul permutărilor de grad N avind un 
număr finit de elemente și anume N!), și atunci trecem la 
aflarea unei noi clase de echivalență. Pentru aceasta verifi- 
căm dacă există un element al vectorului VECTOR a cărui 
valoare este mai mare decît K și în caz afirmativ trecem la 
ajlarea clasei -sale. | | 

Schema logică a subrutinei CLASA apare în fig. 32.1. 







I=1,2, e ..N | 






Fige 92ele 


Programul principal începe cu citirea vectorului |, cores- 
punzător permutării, urmată de scrierea vectorului pe o 
linie a imprimantei. Apoi este chemată subrutina CLASA 
care are ca efect înscrierea în vectorul ] a informaţiei referi- 
toare la împărțirea în clase de echivalență. Elementele vec- 
torului J] sînt scrise la imprimantă sub elementele vectorului 1. 
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EXERCIŢII 


1) Prima instrucțiune FORMAT din programul princi- 
pal are conținutul 4012, deși cu acest format se citesc numai 
cele 20 de elemente ale vectorului I. Care este deosebirea 
față de cazul în care formatul ar avea conținutul 2012? 

2) Este echivalentă a doua instrucţiune din subrutina 
CLASA cu vreuna dintre următoarele grupuri de instruc- 
(iuni? 


a) INTEGER PERMUT (N) 
INTEGER VECTOR (N) 

») DIMENSION PERMUT(N) 
DIMENSION VECTOR(N) 


3) Să se scrie o subrutină care să aibă ca efect scrierea 
la imprimantă a elementelor mulțimii A care aparțin ace- 
lciași clase ca și elementul dat K. 

4) Să se scrie un ciclu DO care să înlocuiască instrucțiunile 
7—19 din subrutina CLASA. 


1 SUBROUTINE CLASA (PERMUT, N, VECTO) 
2 INTEGER PERMUT(N) „VECTOR(N) 
3 DO 3 I=1,N 

4 3 VECTOR(I J=1 

5 K=1 

6 7 L=K 

7 5 L-PERUZ(L) 

8 IF(L-K)2, 4 

9 2 OO 
15 GOTO 5 
1 4 DO 6:I=1,N 

12 IP( VECTOR (1) e LE „K)GOTO -6 
15 K=VECTOR(1) 
14 GOTO 7 
15 6 CONTINUE 
16 RETURN 
17 END 

1 DIMENSION 1(25) „J(29) 

2 READ (1,3)1 

3 3 DA Tla 4912) 

4 WRITE(3,4)1 

5 CALL CLASA(I, 25,9) 

6 4 FPORMAT( * "„20(12,1)) 

T WRITE (3,4) 

8 STOP 

9 END 


REZULTA TELE PROGRAMULUI SINT _£ 


1219 912 115 7 5 4 
1 2 1 1-1 1772121 
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PROGRAMUL 33 


Să se alcătuiască un program Beniru tipărirea tabelelor de 
adunare, înmulțive şi a inverselor elementelor din corpul Za. 


Subruiina PLUS tipărește tabela de adunare a elemente- 
lor din Zu unde N este transmis subrutinei prin lista de para- 
metri. 


Schema logică apare în fig. 33.1. 


Tabela va fi formată din N + 1 linii. și N A+ 1 coloane. 
Vrem ca. pe prima linie și pe prima coloană să apară în ordine 
elementele (,1,...,„N—1 ale inelului Zn (elementul de pe prima 
linie și prima coloană va fi semnul + ), iar la intersecția 
liniei | cu coloana J să apară valoarea sumei dintre primul 
element al liniei 1 și primul element al coloanei J, suma fiind 
calculată în Za. Deci pe linia | a tabelei vor apare în ordine 
numerele 1—2,1—2,1—1,...,]+ N— 3, unde suma se cal- 
culează în Zu. Mulțimea (1—2,1—1,...,] + N — 3! coincide 
evident cu mulțimea (0,1,...,N—1). 

Observăm că ultimele N elemente din linia | + 1 sînt în 
ordine | — 1, 1,..., I+N—3, 1—2. Ţinînd cont de aceasta, 
folosim un vector M cu N componente întregi, care inițial 
primesc în ordine valorile (6,1,..., N—1. Subrutina începe cu 
tipărirea, pe prima linie a semnului + și a numerelor 9,1,..., 
N—1. Apoi pentru fiecare Ie (0,1,...,N—1! sînt tipărite. pe 
cîte o linie elementul 1 și vectorul M. La fiecare pas vecto- 
rul M se modifică prin deplasarea cu o poziție la stînga a 
elementelor sale, prima componentă luînd locul ultimei com- 
ponente. 


Pentru încadrarea tabelei într-un chenar - procedăm în 
modul următor: introducem variabila reală X, care este 
citită în programul principal de pe cartele cu formatul Al, 
fiind transmisă subrutinei prin lista de parametri. Cum pe 
cartelă apare în coloana 1, caracterul *, rezultă că primul 
bait al variabilei X, interpretat drept caracter, reprezintă, 
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“um asterisc. Scrierea; variabilei X cu formatul Al va avea 
ca efect tipărirea unui asterisc. 

Pe fiecare rînd al tabelei apar N-+ 1 numere, ocupînd 
fiecare cîte două poziţii; încadrarea fiecărui număr între 
asteriscuri face ca fiecare rînd să conțină NN = 3N + 4 
caractere. Pentru a tipări un rînd care să conțină NN aste- 





( TABLA: ADUNARII IN. ZI, 





/'serie-X ae NN ori 7 





===. I=1,23 ese „N 


g 
F MD) =I-7] 
t—-- - = | 


| Serie M_” 
_Sorie X de NN ori 








pt J]= 


Lă 
4 


bo 


999 na ue ne fam dna Șnt sin 


* 





- K=1, 23e. e. „NL. | 





MC) =M(K+1). ] 


—._. _..ov.p-._- 


[_men)=z] 


—— ma. —-%, 


-_ . n n n m mape în în pai mda 
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riscuri este suficient să scriem de NN ori variabila X cu for- 
matul Al. 

Schema logică este dată în fig. 33.1. 

Subrutina PR realizează tipărirea tabelei de înmulțire 
a elementelor din inelul Zu. Labela are aceeași formă cu cea 
tipărită de subrutina PLUS; încadrarea și separarea liniilor 
și coloanelor se face, analog, folosind variabila X care este 
transmisă subrutinei prin intermediul parametrilor acesteia. 

Deosebirea constă în faptul că la intersecția liniei | cu 
coloana, ] se găseşte produsul elementelor de pe prima, poziţie 
a liniei și coloanei considerate. Pentru scrierea unui rînd la 
imprimantă este folosit vectorul M cu N componente întregi. 
Pentru fiecare 1€e(6,1,...,N—1) elementele vectorului M 
primesc în ordine ca valori produsele dintre | și elementele 
0,1,...,N—1; valoarea produselor este înlocuită cu restul 
împărțirii lor prin N, deoarece alegem pentru clase reprezen- 
tantul care este cuprins între O şi N—1. 

Schema logică apare în fig. 33.2. 

Subrulina INV calculează inversele elementelor nenule. 
din inelul Zn (dacă aceste inverse există). Pentru determi- 
narea inversului lui | (unde Ie (1,2,...,N— 11) se consideră 
produsul lui I cu fiecare dintre elementele K nenule ale lui 
Zn. În cazul în care există o valoare a lui K pentru care 
produsul este în clasa lui 1, valoarea lui K este înscrisă 
în componenta 1] a vectorului M, ca reprezentînd inversul 
lui |; în caz contrar M(I) primeşte valoarea (O pentru a marca 
faptul că elementul Il nu este inversabil în Zu.Subrutina se 
încheie cu tipărirea valorilor 1,2,...,N—1 și a primelor N—1 
componente ale vectorului M, astiel încît sub elementul 1 
se află valoarea lui. M(I). 

Schema logică apare în fig. 33.3. 

Programul principal constă. în citirea, variabilei X de pe 
cartele și în apelarea succesivă a subrutinelor descrise mai 
sus. 
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rea 
TABLA INMULTIRII IN Z7 INVERSUL IN Z?  / 


NN=3eN+4 
Scrie X de NN ori po I=1,25 o. NI 
| ; 
A E-ca PETEDEEI po ELE, 055 
4 s ia 
| CI) 
' M(I)=I-1 3 
: Hă 
dai MII IE 
Scrie M i i SP aI> Da 
Serie X âe NN ori HR 
! i_ 22 Nu | 
[] 
po (9151323 eesN i M(I)=p | 
3 
PoIzsI-i f _ 
; M(1)=K 
—. Kl=1,2eca.pN o. ... 3 . 
| d “Scrie 1925 seesN-1l 
[K=K1l-2 “ Serle M 


+K 
M(KI)=I-1/N*N| * 


Fig. 33.5. 


? „LL. mn ee o womowimwuonowoeomme 


= 


Pia . 35 .2e 
EXERCIŢII 


1) Cum putem înlocui în grupul de instrucțiuni 15—18 din 
subrutina PR înmulţirea elementelor J și K printr-o adunare? 
2) Se observă că subrutina PLUS putea fi construită 
după modelul subrutinei PR, singura modificare necesară 
fiind înlocuirea instrucţiunii 17 cu instrucțiunea: 
1=J+K 
187 


13 — Programe în limbajul. FORTRAN 


Ce modificări trebuie făcute în programul principal și în 
subrutina PR pentru ca aceasta să poată îi folosită atit pentru 
tipărirea tabelei de adunare cît și a tabelei de înmulţire a, 
elementelor din inelul Zu? 


3) Să se scrie o funcție L care să calculeze inversul unui 
element |] în inelul Zu. L va lua valoarea inversului, dacă 
acesta există, şi valoarea ( în caz contrar. Cum poate fi 
folosită această funcție pentru a determina dacă două nu- 
mere naturale sînt prime între ele? 


4) Să se modifice subrutina INV astfel încît calculul inver- 
sului șă se realizeze cu ajutorul subrutinei DLIN din progra= 
mul Br. A 


2 SUBROUTINE PLUS (N,X,M) 
2 DIMENSION M(N) 
Zeta 
WRIT = 
P; 9 FORMA D(.'GPABLA ADUNARII IN 2,129 
6 WRITE (3,1) (X,1=1 NN) 
2 a FORMAŢ(I 1,12741) 
e DO 2 I=1,N 
9 M(I9=I-1 
LT WRITE (345)8 
LS) $ FORMAT(! e+ 6,58(12,*«1)) 
32 WRITE (3,1) (X,153,N5) 
33 DO 7 diz2,ă 
CI = 1 RPR 
WRI: si. 
La 4 FORMAT( «1,39(£2,**1'3) 
27 WRITE(3,2) (X,1=1,NN) 
18 Ni=N=A 
19 I:M(1) 
25 DO 8 K=1,N1 


21 S u(K)=u(X+1) 
22 7 M(N)=I 


24 
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că 


Bo Da AI ASAN e 


Pa 


VOIaUAUNH 


SUBROUTINE 'PR(N, SM) 
DIMENSION M(N) 
WRITE(3,9 


9)N 
9 FORMATĂ ÎgTABLA INULPIRII IN ze 12) 


NN=3 *N+4 
WRITE (3 „13 CX E NN) 
1 FORMAm( Î “208 
DO 2 I=2,N 
2 M(I)=I-2 
WRITE(9,5 3)M 
3 PORMAT(! «x «*,58(12,t21)) 
WRITE (3, XI, =1,NN) 


6 M(K1)2I<I/N=N 
WRITE (3, 4)J,M 
4 FORMAm( î *? 39(12,1*)) 
WRITE( 3 1) (Xp I= 1NN) 
7 CONTINUE 
RETURN 
END 


SUBROYPIRE INV(N,M) 
DIMENSION M(N) 
WRITE(5,9)N 

9 FORMAT( "ZINVERSUL IN 2" 12) 
NIN , 
00 î 122,N1 
*-DO 2 K=1,N1 


IzIL3K 
IP(I-3/N+N EQ ,1)GOT0 3 
2 CONTINUE 
M(1)=5 
GOTO 1 
5 M(I1)=K 
3, CONTINUE 
WRITE(344) (Ti I=1,N2) 
4 FORMAT( 15)” 
WRITE(3, AD lalI) 121,1) 
RETURN 


END 


DIMENSION M(7) 
READ (1,1)X 


1 FORMAT (Al) 


N=7 

CALL PLUS (N,X,M) 
CALL PR(N,X"M) 
CALL INV(N MM) 
STOP 


END 
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REZULTATELE PROGRAMULUI SIND + 


TABLA ADUNARII IN Z 7? 


AR e 30 3 E IER Ie IRI AR 30 E AR II Ie 0 
+ + fe le 2x 54 4x Dx 6 


AR NE ee E IE A III 36 30 0 Ie 3 3E 203 


x Dx Dx x 2» 3x 4x 5x 6x 


E 36 DE E E 30 EI 3 IE ILIE 0 DE eX IER e 
* Ix ]x* 2x 9x 4x Su Gx* Dx 
XA RE E RER E AR 2 e 
* 2x 2% 9x* 4x Dx Gx Dx 1 
EA E RR RI DER 0 N e e 
x 5 Dx dx 9 Gx [x 1x 2x 
od Xe E E elit 3 30 EEE E e de IA e Se 
a 4x 4 9 Ox Dr 1x 2x 3x 
NEI E E RI IE E E E IE Ie e IE e 
x 9x Ox 6 Dx x 2 3x 4x 
XX RR IEI XE DEE E RA IE de e e 
* 6x G6x [x 1» 2x 3x* 4 5% 
PARĂ XR A RR XA RAR ERA A 


TABLA INMULTIRII IN 2 ? 


E 338 33 e 36 36 30 de 06 e 1806 1 30 E 9 3 IE 3000 
XX 3» Dr ]n 2x 3x 4 5x 6 
36 RIL E 3690 E 3 e 20 30 IE e 
+ Dx Dr Dx fx fr De Dx De 
SE E E IE 9 3 96 9 996 9 A 3 960 38 8 3030 
e ]x fu 1 2 3x 4x 5 6 
AER ELE 209 2830 28 202 26 10264 3 36 3 26 08 be 
* 2x Dx 2x 4x Ox ]x 3x 5 
938 3 3 30 3 3030 e 2 90 IE 3 e PAIE 103 A 
* 3x Dx Dx Ox 2 5x ]x 4 
Lo Po poe oeo eee... 
* 4x Dx 4x ]x 5x 2x Gu 5* 
ERA RR e E NI E MIE 20 0 II e 
* 5 fix 95x 3x x x 4x 2x* 
„E PE 9 3 DE A 9 E E AIR A 2 230 36 
+ Ox Dx Gu 5x 4 3 2x 1 
A ee e 30 e NNE E E 20 20 30 e e IER 
INVERSUL IN Z 7 
1 2 3 4 5.6 
1 4 5 2 3 6 


PROGRAMUL 34 


Să se rezolve o ecuatie polinomială cu coeficienți în corpul 
Z, al claselor de resturi mnodulo p, unde p este un număr prim. 


101 

Fie polinomul P(x) = daia de gradul 199 cu coe- 
ficienţi în corpul Z,. 

Ne punem întîi problema reducerii gradului polinomului, 
adică problema găsirii unui polinom de grad 6 care să aibă 
aceleași rădăcini ca și polinomul inițial. Pentru aceasta. folo- 
sim relația: 


xP == (mod 7) 


LA 
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(_S7ART_) | 
Citegte A 
pi Seriei / | 


- „1>7983 s e e ș195 | 
J=1-1/6*6 
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M=A (95) 


M=M+T1+A(K) | 


pr —, ÎN x 7 mm op 


_ Da 
ED perie 
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Fige 34.1ej 


191 


valabilă pentru orice x natural satisfăcînd 9 < x < 3. De 
aici rezultă că: 


ah(P-I+1 == x (mod 5) pentru k = 9,14,... 


Reducerea, gradului se: face folosind această ultimă rela- 
ție. În urma reducerilor, ajungem la o ecuaţie polinomială 
echivalentă de gradul 6. Această ecuaţie se poate scrie: 


basi“ + boat? + se. + bio + bin = 9 
unde 


by = Ap -FCi._a + i _12 Fi. (95 < R < 198), iar b2 — 410e 


Pentru ecuația polinomială redusă căutăm rădăcinile 
înlocuind pe rînd valorile %,1,2,...„P—1 în expresia polino- 
mială și veriiicînd dacă rezultatul obținut este egal cu zero 
modulo 4. Valoarea polinomului într-un punct o calculăm 
folosind schema lui Horner. 

Programul constă în citirea polinomului inițial reprezen- 
tat sub forma unui vector cu 101 de componente, în calcu- 
larea polinomului redus, în aflarea rădăcinilor distincte ale 
acestui polinom și în tipărirea rezultatelor. Schema logică 
apare în fig. 34.1. 


EXERCIŢII 


1) Se poate înlocui instrucțiunea 13 cu următoarea instruc- 
țiune: DO 18 1=— 95,191? 

2) Cum poate fi scrisă mai condensat a S-a instrucțiune 
din program? 

3) Să se scrie o subrutină pentru reducerea gradului 
unui polinom. cu coeficienți în corpul claselor de resturi 
modulo 2 (4 prim) şi să se modifice programul, înlocuind 
calculul polinomului redus: prin apelarea subrutinei. 
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4) Să se scrie o subrutină care să calculeze derivata unui 
polinom de grad /—l cu coeficienți în Z, și folosind această 
subrutină să se determine care dintre soluțiile ecuației poli- 
nomiale este rădăcină dublă. 


ÎEBonuaa maur 


15 





yazicsăsteiatetast 
2 3 456 1 23 456 6 5 4 32 442 
Sti ezoitatitsititiie 
molară mele dm? 

i 

$ 


TNTEGER A(192) 
READ (1,12)A 


11 FORMATI 8411) 
WRITE(3,71)A 
ȚD FORMATI! *,25(71,8X)/+ 1,25(11,2X)/* 21128947 
ge » zar,” 4 24(71,2%)) 
vo î 
err/â06 +6 
îcs3 isa tasimadaziaa 
25 A (28123) a(292.29)%4(192-2) 
a QONZINIR 


1=95,195 
28 A(1)=A(1)2A(1)/747 
WRITE (3 314) CA (ID a1=95, 142) 
34 ToRuar(i + 7(11,9X)) 
57 WEITEC 245 ! > "SOLUTIILE ECUATIEI GIN2+) 
DO 15 [= =2€ 


95 
DO 16 K=96,192 
26 M=MaT1+4(K) 
IEC Tae 29315 
23 VELE 217) a 73) 
15 GONTINUB * 
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PROGRAMUL 35 


Să se găsească toate pohgoanele regulate care pot fi construite 
cu vigla şi compasul și al căror număr de laturi este cuprins 
între două numere naturale NI şi N. 


Un număr natural P se numește număr prim Fermat dacă 
are forma P = 2% + 1 și dacă este prim. 

O teoremă cunoscută din teoria corpurilor stabilește că, 
un poligon regulat cu N laturi poate fi construit cu rigla și 
compasul dacă, și numai dacă, toate numerele i impare prime 
care îl divid pe N sînt numere prime Fermat, al căror pătrat 

nu-l divide pe N. De aici rezultă că N trebuie. să aibă forma 
N — 27 se 4pa se 1B2 x, 4k unde îuyla-+ „4 Sînt numere prime 
Fermat, iar Pa PE 10,1). 

Algoritmul de rezolvare al problemei constă în determi- 
narea numerelor prime Fermat, în obținerea unor numere de 
forma, indicată de teoremă. și în verificarea apartenenței lor 
la intervalul [N1,N). 

Functia PRIM determină dacă un număr natural N este 
prim sau nu, primind corespunzător una dintre valorile 1 
sau %. Schema logică apare în fig. 35.1. i 

Subrutina ADUN acţionează asupra unui vector P cu N 
componente întregi, care pot lua ca valori numai numerele 
O și 1. Fie p„+Pa+--,„PN componentele vectorului. Considerăm 
șirul de cifre PNPnN_..-. Bob. ca un număr scris în baza 2. Acţi- 
unea subrutinei constă în adăugarea cifrei 1 la acest număr, 
suma făcîndu-se în baza 2. Acest lucru se poate realiza astfel: 

Dacă există cel puțin o componentă a lui P care are va- 
loarea (, notăm cu 1 cel mai mic indice pentru care fi = 8 
ȘI efectuăm atribuirile: Pi =1lși2y = 0 pentru J=l,.,,, 
I—1. De asemenea dăm lui IND  aldarea O şi ne întoarcem 
în programul principal. 

Dacă toate componentele lui P au valoarea 1, dăm lui 
IND valoarea 1 și ne întoarcem în programul principal. 
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Subrutina ADUN permite generarea tuturor sistemelor 
de N numere avînd ca valori numai cifrele O şi 1; pentru 
aceasta este suficient să dăm inițial elementelor vectorului 
P valoarea 0 și apoi să apelăm succesiv subrutina pînă cînd 
IND ia valoarea 1. | 

Schema logică este dată în fig. 35.1. 





Pig. 35.1, 


Programul rincipal începe cu citirea valorilor lui. NI 
și N. Apoi sînt determinate numerele prime Fermat mai 
mici decît N și valorile lor sînt trecute în vectorul I. Se cal- 
culează numărul M care are proprietatea că 2M < N, fiind 
în același timp cel mai mare cu această proprietate. 


Determinarea numerelor de forma căutată începe cu 
atribuirea valorii A tuturor componentelor vectorului P. 
Elementele vectorului sînt schimbate succesiv prin apelarea 
subrutinei ADUN. La fiecare pas se calculează valoarea 
NR =— 2 * 72 x...* 4hk și această valoare este înmulțită cu 
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23 (unde 2 < ] < M). Dacă pentru vreun J rezultatul este 
cuprins între NI și N, atunci el este tipărit; în caz contrar 
se trece la pasul următor prin apelarea subrutinei ADUN, 
care. generează un alt sistem de exponenţi pentru numerele 
prime Fermat determinate. - 

Schema logică apare în fig. 35.2. Programul a fost rulat 
pentru NI = 1180, N= 1390. 


. 
<Enz> 


= J=1,2; oa e ş 15 


I 
K 


pJ=l 
JKL=2 +1 
1=PRIM(IJKL) 
a 


Nu 
<> 
. K=K+) 
Ea 


SI m J=N 
| M=LOG (X) /LOG( 2)+1 


$— J=1,2, ee 9197 _ 





a - 


... «în 59 3 a md ap 


Fig. 35 .2e 
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EXERCIŢII 


1) Cum poate fi redus numărul de instrucțiuni din sub- 


rutina ADUN? 


2) Să se modifice programul principal prin introducerea 


următoarelor măsuri de siguranță: pentru cazurile: 
a) Nl >N (în acest caz programul va fi oprit). 


b) între numerele N1 şi N nu apare nici un număr prim 


Fermat. 


3) Să se scrie o subrutină analoagă cu subrutina ADUN, 
care să permită generarea tuturor sistemelor de: N elemente 


avînd valori în mulțimea 10,1,2,...,.M). 


Booaanuau na 


INTEGER Iaz) „P(19) „PRIM 
READ(1,1)N1 
2 TORA z(235)” 


DO 2 J=1,15 
IJKL= 2ne2nx(J=1)+1 
K1=PRIM(I1JKL) 
IF(K1,EQ.2)GOTO 2 
IF(IJKLoGT.N)GOTO 3 
K=K-+1 
I(K)=1IKD 

2 CONTINUB 


3 X=N | 
M=ALOG(X)/ALOG (2, )+1 


DO 5 J=1,K | 
IF(P() NE.) NR=NR=T (JI) 
$ CONTINUE 
IF (NR.GT,N)GOTO 
IP(NR.GT, N NRITE(3,T)8 
DO 6 J=1,M 
NR=NA*2 
E CNC D.N)GOTO 8 
IF (NR.GT.NL)WRITE(3,7)NR 
7 FORMAT(! 1,15) 
6 CONTINU 
(8 CALL ADUN(P,K, IND) 
ZF IND 80.180 
GOTO 2113 
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SUBROUTINE ADUN(P,N,IND) 


7 2 
2 INTEGER P(N) 
3 IND=5 
4 IF(P(1) „NE,A)GOTO 2 
5 P(1)=1 
6 TURN 
7 1 DO 2 Iz2,N 
8 IF(P(1) „NE,5)GOTO 2 
9 P(I)=l 
15 RETURN 
11 2 P(1)= 
12 IND= 
15 RETURN 
14 END 
1 INTEGER FUNOTION PRIM(N) 
3 M=SQRT(X) 
i 20 CN „82 
NeNE,N/I*I1)GOTo 
6 "PRIM=p Va) i 
7 RETURN 
8 1 CONTINUB 
9 PRIM=1 
15 RETURN 
21 LX d 


REZULTATELE PROGRAMULUI SINT ; 


1285 
1285 





PROGRAMUL 36 


Să se scrie un program pentru descompunerea in factori 
peduchibih a unui element din Zi). 


3 
a 


Prin Z[i] notăm mulțimea elementelor de forma M-iN 
unde M și N sînt numere întregi. Pe această mulțime intro- 
ducem operațiile de adunare şi înmulţire în modul următor: 
(M-+iN)+(P + iQ) = (M + P) + (N + Q)i pentru orice M,, 
N,P,Q ce Z 
(M + îN) * (P + iQ) = (MP — NQ) + (NP + MQ)i pentru 
orice M,N,P,Q ce Z 


Aceste două operaţii definesc pe Z[i) o structură de inel. 
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Definim divizibilitatea în Z[i] în modul următor: M + iN 
divide pe P-LiQ dacă există R,SEZ satisfăcînd relația: 


P-L-iQ=(M-+iN)+(R+iS) 


Un element din Zi], nenuj și diferit de 1, —1,i, —i (ele- 
mentele inversabile ale inelului) se numește zreductibil (prim) 
dacă singurii săi divizori sint cele patru elemente inversabile 
indicate mai sus și elementul înmulțit cu ele. Facem obser- 
vaţia că noțiunea de element prim diferă în general de cea de 
element ireductibil, dar în cazul inelului concret cu care lu- 
crăm cele două noţiuni se confundă. 


Detinim normal urui element nenul M +. iN ca fiind nu- 
mărul natural M2 4+ N2. Se demonstrează că dacă M + iN 
divide pe P+iQ, atunci M2+ N2 divide pe P2 + Q2. 

Programul de față își propune să determine descompu- 
nerea în factori primi a unui element M 4 iN. Pentru aceasta 
calculăm mai întîi norma elementului și valoarea găsită o 
memorăm în variabila întreagă NORMA. Căutăm divizorii 
numărului natural NORMA. Pentru fiecare divizor 1 căutăm 
numerele întregi ] și K cu proprietatea J2 + K2 = 1. Putem 
impune ca J > G deoarece dacă J+iK este un divizor, 
atunci 'și — ]J—iK este un divizor. De aceea este suficient 
să parcurgem numerele întregi ] și K din intervalul [9, 


V/ î), cu condiţia ca, în momentul îndeplinirii relaţiei J2 + 
+ K2=— să 'cercetăm divizibilitatea_ lui M + iN atît cu 
Îi ctt și ce J —ikK. | 
Din egalitățile (M-+ iN) / (J + iK) = (M+ iN) /(J— 
— îK) (2 + K2) = (MI + NEK) Iri (NJ — MK)/L! re- 
zultă că J+iK divide pe M-iN dacă 1 divide atît pe 
MJ + NK cît și pe NJ — MK. Analog, pentru ca J—iK 
să dividă pe M + iN trebuie ca 1 să dividă numerele întregi 
MJ — NK și NJ+ MK. 
' În momentul în care am determinat un divizor pentru 
M + iN, îl tipărim şi reluăm raționamentul înlocuind ele- 


1 Aici, ca și în programele 37, 39, 4, cuvîntul „normă“ este 
folosiț prin abuz de limbaj, nefiind vorba de o normă în accepțiunea 
matematică a cuvîntului. 
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START 
Citegte M,N 


E e PCIPIPRLII 


NORMA=NORMA/I * > 
MP=SQRT (X)+1 
Jl 


— [) 
lu = 
| Da 
Xa 
— 
— 2,7 


K=Kl-l 


mp po 


I 

» 
Da 
MlaMI+N sef 


NI=N*I-Mak 
L=K 


1,/ X=MI/1 la / 
Sir 
Nu 


M1L=M4J=N*K 
| NI=NxI+MR 
ls 





Fig. 36.1 





L_—— —- 


Nu - 
MN 


(3) Scorie (2) 
2, 
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mentul inițial M + iN cu cîtul împărțirii lut cu divizorul găsit. 
Dacă M + iN este ireductibil, atunci este tipănt un mesaj 
care indică acest lucru și se trece la citirea de pe cartele a 
unui alt element care trebuie descompus în factori primi. 


9 8 READ (2,5, END=6)4,N 
E e 
w 
3 4 FORMAT] 0 75130 73razt) 
5 2 NORMA=M+M+N+N 
6 IPUNORMA „1£,2)G070 2 
7 X=NORMA- 
8 Mt SQRT() | 
13 E (RR "NORMA/1s7 93,7 > 
213 7ăX e 
J2 AP-SQRD(X)+2 
15 DO 31 J1=1,MP 
14 -] 
15 DO 31 Ktai,MP 
26 Kakll 
27 TP(IxU+Ks „NE. )GOTO 51 
28 =MRU-ANSE 
29 NL ey -Ma 
20 ZECI X 0 A01/£AXD „2/X 3/2 GAT 44 
22 MIL=MeJ=Nxk 
23 NA=Na0 tă 
20 Ce „NE MI/T+OR NI /X NE NI /I)8070 53 


26 44 WRITE(3,12)d, 


27 12 FORMA T( UN BIVIzoR= 


28 =M2/I 
29 N=N1/E 
“5 COTO 2 
1 %1 CONTINUE 
%2 3 CONTINUE 
33 NĂ WRITE (5 413)MN 
34 15 FORMAT( 
35 GOT 
6 6 STOP 
57 END 
A 1OGRA 
Ă 7+ 117 
UN DIVIZOR= + 1xI 
UN DIVIZOR= ]1+ =2x[ 
1+ 4xI. ESTE PRIM 
A -9+ SL 
«.2+ 5sl ESTE PRIM 
-]1+-21*1 
ON DIVIZOR= ]+ 1*I 
UN DIVIZOR= 2+ Sl 


dt ÎL ESTE PRIM. 


15,14 T3,tult) 


L3pt+t Id il ESTE PRIM?) 


NI: 


28% 


Facem observația că la fiecare pas divizorul găsit este 
prim, deoarece norma sa divide pe M2 + N? și este cel mai 
mic număr natural diferit de 1 avînd această proprietate. 

Instrucţiunea 1 din program folosește opțiunea END = 
== 6 pentru a indica faptul că, în momentul în care s-au ter- 
minat cartelele de date, se execută instrucțiunea 6, adică 
programul este oprit. În acest mod nu este necesar să cunoaș- 
tem dinainte numărul de elemente care dorim să fie descom- 
puse în factori primi. 

Schema. logică apare în fig. 36. 1. 


EXERCIŢII 


1) Să se înlocuiască instrucțiunea 10 printr-o instrucțiu- 
ne IF logic. 

2) Se observă că în grupul de instrucțiuni 13—31 dacă 
pentru un anume J avem J? + K2 >, cu atît mai mult 
pentru următoarele valori ale lui K nu putem avea J2+ 
+ K2=— 1, Să se modifice corespunzător programul pentru 
a evita calculele inutile. 

3) Cum trebuie modificat programul pentru ca în situația 
în care L este negativ, la scrierea la imprimantă semnul 
minus să nu mai fie precedat de semnul plus? 


PROGRAMUL 37 


„Să se afle cel mai mare divizor comun a două elemente 
din Z[i]. 


Z[i] reprezintă inelul descris în exercițiul anterior. 

Fie e = a+a'xi un element din Z[i]. Să notăm cu 
N(a) = a* + a" norma lui a. Se demonstrează cu ușurință 
că N(af) = N(a).N(6) pentru orice «, BEZII]. 
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Fie a=a+a'xi și B=b-+0'*i două elemente din 
Z |] cu 6=£ 0. Fie Q[z] corpul care se obţine analog cu 
ZI), considerînd în loc de inelul numerelor întregi corpul 
numerelor raționale. În corpul Q[7] putem efectua înmul- 


țirea: , 
— b'ski 
= (aha . 


cu 7,s raționali. Fie c, c' cele mai apropiate numere întregi 
de 7, respectiv s. Deci | c—r| < 1/2 şi |c”—s| < 1/2. Atunci 
a = (0 + c's)f—((c—r) + (0—s)e)f. . i | 

Norma lui (c—r) + (c'—s)s este (c—7)2 + (6'—s)2 <Q 1/4 + 
+ 1/[4=1/)2<1 și ţinînd cont de multiplicativitatea nor- 
mei, rezultă că: | | , 
N((c—r) + (6'—s)*s) 6) <N (6). Am obținut astfel următorul 
rezultat, numit teorema împărțirii întregi: 

Oricare ar fi două elemente «, 6 din Z[] cu P-£F5, 
există două elemente 3,3 din Z[:] cu proprietăţile: 


Deci « 6-1 are forma p--s* 





a) a=By+ă 
b) N(5) < N(6) 

Se poate demonstra că elementele > şi 3 sînt unic. deter- 
minate de cele două, condiții. 

Rezultatele anterioare ne permit să determinăm cel mai 
mare divizor comun a două elemente din Z[] cu ajutorul 
algoritmului lui Euclid, aplicînd succesiv teorema împărțirii 
întregi; cel mai mare divizor comun. va fi ultimul rest diferit 
de zero. Totul decurge analog cu aplicarea algoritmului lui 
kuclid în inelul întregilor. 

Subruhna DIV. calculează restul M2-+:N2 al împărțirii 
elementelor M-+N și MI+NI. Acest calcul se face în modul 
expus mai sus. Pentru a afla numărul întreg K cel mai apro- 
piat de numărul rațional Y, determinăm întîi întregul K 
avînd proprietatea K < Y< K--1; în cazul în care K+1— 
—Y < Y—K, atribuim lui K valoarea K-1, iar în caz con- 
trar lăsăm valoarea lui K neschimbată. Schema logică apare 
în fig. 37.1. 

Programul principal începe cu citirea celor două perechi. 
de întregi  (A,B) și (C,D) reprezentind elementele A-+2B 
Și C-+-D şi le tipărește. Se aplică în continuare algoritmul lui 
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Euclid prin apelarea repetată a subrutinei DIV și în momen- 
tul în care restul furnizat de subrutină este zero, este tipărit 
restul ariterior, care constituie cel mai mare divizor comun al 
celor două elemente citite. Schema logică apare în fig. 37.2. 

Observăm că, întrucît valorile inițiale ale lui A,B,C și D 
sînt modificate, pentru a tipări cel mai mare divizor comun 
pe aceeași linie a imprimantei folosim în format caracterul 
de control +. 











X=M1*ML+N1*N2 
Y2(M*MI+N 4N1)/X 
Z=(NxM1-N1*M)/X 







Scrie ABC D 


DIV 


AB,C,DK, 











9 Q DI > 
IDEI 


tata 


Fige 57.2, 







KeM=Hil *M2+N1*H2 | 
L=N=MI*N2-M2N1 


Pa 





N2=L 
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EXERCIŢII 


1) Cum poate fi simplificată scrierea grupului de instruc- 
țiuni 5—12 din subrutina DIV prin folosirea instrucțiunilor 
IF logic în locul celor de tip IF aritmetic? 

2) Putem elimina instrucțiunile 23 şi 24 din subrutina 
DIV, înlocuind variabilele K și L din instrucţiunile 21 și 22 
cu variabilele M2 și N2? 


SUBROUTINE DIV(M,N,M1,N1,M2,N2) 
X=M1 *MI+NI+*NI 
Y=(M*M1+N*N1)/X 
Z= (N +M1-N1+M)/X 
IP(X)1;252 
2 K=Y 
Goo > 


1 K=Y 
3 ze Ctee-an1) 4,5, 5 


Bo oaauaunv 


32 5 M2=K+1 
23 6 1P(2)11,12,12 
14 12 K=Z 


15 GOTO 13 

16 13 K=z=2 

17 13 1F(2*2=24K-1)14,15,15 
18 14 N2=k 

19 GOTO 16 


25 15 N2=K+1l 
21 16 K=M-MIl*M2+N1*N2 


22 L=N-MIL*N2-M2+N1 
23 M2=K 

24 N2=1L 

25 RETURN 

26 BND 


1 INTEGER IA 
2 RBAD (1,3)4,B;0,D 

3 3 FORMATI AI, 2, 

i 4 VEL DA ga 04D 1504091391810, 1,13,14%,33,04)=1) 
5 1 CALL DIV(A,B,CDK,L) 
Y 4 A=C 
8 

9 

315 


B=D 
0=K 
DeL 
11 IP (K „EQ Pe AND L„EQ.5)GOTO 8 
]2 7 


GOTO 
8 WRITE(5, 9)AB 
A 9 PORMAT( Î+ *9TX 313 13p0s1t) 
15 STOP 
16 BND 


ZULTATELE PROGRAMULUI INT : 


amo 18+ 5641, 19+ 72s)= 1 fel 
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3) Să se găsească două modalităţi de înlocuire a instruc- 
țiunilor 11 și 12 din programul principal cu o singură instruc- 
țiune, folosind sau tot o instrucţiune de tip Ir logic, sau una 
de tip IF aritmetic. 


PROGRAMUL 38 


Să se verifice că Zmn=Zm X EN pentru M,N prime între ele. 


Pe produsul cartezian de mulțimi Zu X Zn definim operaţi- 
ile de e și înmulțire pe componente: 


(a, b) + (c,d) = (a + c, b 4+ d) pentru orice a,cEZu şi orice 
b, de ZN. 


(a, bd) (c, d) = (ac, bd) pentru orice a, ceZm şi b, deZn. 


Se verifică cu ușurință că aceste operaţii definesc pe Zu X ZN 
o structură de inel. 

Afirmația din enunţul exerciţiului constituie o teoremă 
cunoscută din algebră. Ne propunem verificarea exactității 
ei, nu pe cale teoretică, ci folosind calculatorul. Programul 
este alcătuit pentru M=2 și N = 3. 


Considerăm aplicaţia f:Zg = Z,X Za prin care un element 
le Z, este dus în perechea (L,M) unde = L (mod 2)șil=M 
(mod 3). Arătăm că âceastă aplicaţie este un izomorfism de 
inele. Pentru aceasta este suficient să arătăm că /f este un 
omomorfism pentru cele două, structuri de inele și că / este 
injectivă; surjectivitatea aplicaţiei rezultă din injectivitate, 
cele două inele avînd același număr (finit) de elemente. 

Într-o primă etapă se verifică faptul că aplicaţia / este 
omomorfism față de operaţia de adunare. Pentru aceasta se 
generează toate perechile (1,]]) de elemente din Z, și.se veri- 
fică relația f(1+J])=f(1)4+/(J). Dacă această relație este 
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piadindienii TI=) 2, o ..6 


i | = 

L] 

I=71=1 
I=1p2p sc s6 


J=J1=1 
L=DOI(1) 


R 
4 
1 
4 
] 










A1=DOI (A) 
B=M+M1 
Bl=TREL(8) 


N, Scrie 
„CEZ şi X1=B NU ESTE OMOMORFISM 
a. 


„-- Il=1,2, e ..6 (sm ) 
Li 


- L] 


I=I1-1 
X=DOI (1) 
=TREI (1) 


Mu 


I=I1-ă 
U=DOI(J) 
V=TREI (J) 


Nu Scrie 
E seu IĂ sau X/. NU ESTB INJECTIVA 


-—._—._— — Da 


DT 
(2) STOP 


- ..... .pnmn e mai -..— x pc. .. . o 2» 


r 
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11=1;2, . ..6 





* I=I1-1 
X=DOI(I) 
Y=TREI (1) 


Jl=1,2, ...6 








TI=Y*V 
TI=TREI (11) 


Scrie 
NU ESTE OMOMORFISM 


-. - o a. — a. <î o gap 


| Serie 
A INELELE SINT IZOMORFE 


STOP 


7 | labil nvovneonuatenoess "nma.camsa 





Fig, 38 ale 


satisfăcută, se trece la următoarea pereche (I, ]), iar în caz 
contrar este tipărit un mesaj și programul este oprit. 

Verificarea injectivităţii se face generînd toate perechile 
de elemențe (1, ]) din Z2 satisfăcînd condiția 1 =£ ] și se cal- 
culează /(1) și /(J). Dacă f(1) =£ f(J), se trece la următoarea 
pereche de elemente, iar dacă această ultimă relaţie nu este 
satisfăcută, se tipărește un mesaj și programul este oprit. 

Într-o ultimă etapă se verifică, dacă f este omomorfism 
față de operaţia. de înmulţire. Se verifică relaţia f(1*]) =/ 
(1)+/(J) pentru toate elementele I, JEZ,; totul decurge 
analog cu prima etapă. 
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În final, dacă toate cele trei condiții enunțate sînt satis- 
făcute, este tipărit un mesaj care indică faptul că inelele sînt 


1zomorfe. 


Schema logică apare în fig. 38.1. Instrucţiunile funcţiilor 
DOI și TREI calculează restul împărțirii prin 2 și respectiv 
9 al argumentului. 


Bbooaouwaunv 


= 
DD o 


15 


IMPLICIT INTEGER(A-Z) 
DOI (R)=R-R/2*2 
TREI (R) =R-R/3*3 


Mi=TREJ (JI) 
S=I+J 
X=DOI (Ss) 
XI=TREI (8) * 
AzIe+Li 
Aî:DOI (4) 
B=M+M1 
BI=TREI (B) 
ZE CX „89 eA1 AND «1 „80 +B1.)GOT0 NĂ 
WRITE 
5 FPORMAT( ' APLICATIA NU ESTE OMOMORFISMS 
STOP ; 
1 CONTINUE | 


) 
IF (X.NE „U .OR.Y NE. V)GOTO 2 
WRITE (3,6) 
6 Are! APLICATIA NU ESTE INJECTIVA! 
STOP 
2 CONTINUE 


U=DOI(J) 


P=DOL(7) 
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s: m=YxV 

52 =TREI(71) 

Zi Ei A AND „77 .EQ.B)00T0 3 

22 7 rosuaz(! APLICATIA NU ESTE OMOMORFISM' ) 
57 3 COICETNUE x 

58 WRITE(5,8 8) | 

59 8 rr INELEIE SINT IZOMORFE?) 

65 STOP 

Dei END 


REZULTATELE PROGRAMULUI ŞIR? + 
INBLELE SIN! IZOMORFB 


EXERCIŢII 


1) Programul este alcătuit pentru M=2 și N= 3. Ce 
modificări trebuie aduse pentru ca programul să. fie valabil 
pentru orice M și N, ale căror valori sînt citite de pe cartele? 

2) Ce schimbări se pot face în grupul de instrucțiuni 
4—23 din forma inițială a programului, în vederea reducerii 
timpului de lucru? 

3) Să se scrie o funcţie cu numele INJ care să ia valoarea 
1 dacă. aplicația este injectivă și O în caz contrar și să se 
înlocuiască instrucțiunile 24—37 cu o referire la această 
funcţie. 

4) Să se scrie o funcţie cu numele SUR | care să ia valoarea 
1 dacă aplicaţia f este surjectivă şi valoarea 8 în -caz contrar. 


PROGRAMUL 39 


Să se găsească toate elementele ireductibile de normă mai 
mică deci 100 din Z i/3]. 


Amintim. mai întîi pe scurt noțiunile teoretice necesare. 
Prin ZIiV 3] se notează mulțimea elementelor de forma 
a + di|/3, unde a şi b sînt numere întregi. Această mulțime 
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poate fi înzestrată cu o structură de inel prin introducerea 
a două operaţii. Operația de adunare se definește prin relaţia: 


(a + 84/3) + (e + di/3) = c) + (2 + 4/3, 


pentru orice Ai E Z. 


Operația. de înmulţire se definește în modul următor: 


(a + biy/3) (c + 4/3) = (ac — 34) + (ad + do)i/3, 


pentru orice a,b,c,d e Z, 


Definim norma unui element a + b4|/3 ca fiind numă- 
rul a2 + 3B2. 

Spunem că a + di|/3 divide pe c + 4; /3 dacă există 
efE Z cu proprietatea că c+ dij/3 = (a +hi/3) (e + 
+ fi 3). 

Se demonstrează că dacă a + bij/3 divide pe c + di/3, 
atunci a2 + 302 divide pe c + 34? (adică divizibilitatea 
elementelor atrage după sine divizibilitatea normelor). 

Un element nenul a + 8i)/3 se numeşte ireductibil dacă 
este diferit 'de unităţile inelului (adică de numerele 1 și —1) 
și dacă. singurii săi divizori sînt 1, —1, a + i /3, —a—bi/ 3. 

Înainte de a descrie algoritmul de rezolvare a problemei, 
observăm că este suficient să căutăm elementele ireductibile 
de forma a + bi//3 unde > 8, pentru că dacă a + bij/3 
este ireductibil, atunci și —a—bi]/'3 este ireductibil și 'reci- 
proc. 

Aflarea elementelor ireductibile se face în două etape, 
În prima etapă se determină toate elementele de normă mai 
mică decât 190. Trebuie deci ca a2 + 352< 100; rezultă 
că ae (0,1,...,9!, iar b€e(—5,—4,...,5). Sînt generate pe 
rind toate perechile de numere întregi (2, 0) satisfăcînd 
aceste condiții; perechile pentru care a2 + 352 > 199 
sînt eliminate, iar perechea (1,0) este eliminată ca repre- 
zentînd elementul 1, care este unitate:a inelului consi- 
derat. Elementele care nu au fost eliminate sînt înscrise 
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pe liniile matricii TAB. Numărul lor este memorat în variabila 
întreagă NR. 
Etapa a doua constă în eliminarea perechilor (2,0) cores- 


punzătoare elementelor a + bi/3 reductibile în Z( V3]. 
Pentru aceasta folosim un vector V cu componente întregi. 
Iniţial primele NR componente ale vectorului sînt făcute 
cgale cu 1. Eliminarea unui element va fi marcată prin 
schimbarea valorii componentei corespunzătoare din vec= 
torul V în 8. 

Să notăm pentru simplificare cu %,,X%2,...,%NR elementele 
care au fost înscrise pe liniile matricei TAB. Trebuie eliminate 
clementele + care se pot scrie ca produse de elemente din 
Zi V/ 3]. Observăm că datorită proprietăţii enunțate anterior 
A) normei, eventualii divizori ai lui 4 trebuie să aibă norma 
mai mică decît 190; deci acești divizori vor face parte în 
mod sigur din mulțimea pt ace ZE ANR) Atunci eli- 
minarea elementelor reductibile se poate îace în modul ur- 
mător: se calculează succesiv elementele y€ ţ-k-ax1%3i pen- 
tru 1 <1,J < NR (unde y este ales astiel încît să aibă. „partea 
reală Cd tiv) și dacă y are norma mai mică decât 
1900, se verifică dacă există un element xx satisfăcînd 
relația xx = y; în caz afirmativ elementul din poziția K 
a vectorului V primește valoarea A pentru a marca faptul 
că 3%x este reductibil. 


În final, elementele ireductibile care apar pe liniile ma- 
tricii TAB (adică cele pentru care componenta corespunză- 
toare din vectorul V are valoare 1) sînt tipărite. 


Schema logică apare în fig. 39.1. 


EXERCIŢII 


1) După prima etapă, printre perechile păstrate se găseşte 
și perechea (0, 0). Produce aceasta o denaturare a rezul- 
tatelor, ținînd cont că prin definiție un element ireducțibil 
este nenul? 


2) Ce modificări putem aduce grupului de instrucțiuni 
4—]4 pentru a reduce timpul de lucru? 
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O OIAW-UI N joi 


IMPLICIT INTEGER(A-V) 
DIMENSION TAB(115,2),V(124) 


NR=0 . | 
D0 1 A1=1415 - 


IF (A „EQ „1. „AND .B .EQ.6)GOTO 2 
P=A *A+B+Bx5 
IF(P.GE.179)GOTO 1, 
MAB(NR+1, 1)=A 


ZAB(NRI1, ș2)=B 


DO 3 I=I,NR 
Q=TAB(I, 1) *7AB(J, 1)-3*TAB(1,2)*TAB(J,2) 
R=TAB(1,1) *TAB(J,2)+TAB(1,2)*TAB(J,1) 
TF (QxQ4+3xR*R „GE, 17) GOTO 3 

1F(Q.G8„p)60o 5 


z=R 


5 DO 15 K=I,NR & 


TP(Q-NE „TÂB(E,1) «OR.R.NE „TAB(K,2) )GOTO 13 
GOTO 3 


13 CONTINUE 
3 CONTINUE 


DO 7 I1=1,NR 
IF(V(I) NE, 1)GOTO 
WRITE (9 4)TAB(I, +1); TeAB(I, 2) 


7 CONTI 
4 FORMAT(? *,7X,11,12%X,I2/) 


STOP 
END 


REZULTATELE PROGRAMILUI SINT: 


=) 
Ul 
Le 


LC II AC DC O 5 IN 3 a a a A 


NR Oh 9 


OO ANANIA II Aa 32 IV n» N 
| 
UC) 


3) Cum putem realiza, scrierea, la imprimantă; a tuturor 
elementelor ireductibile din, Z[i)/ 3] de normă 'mai mică decît 
19%: | | 


4) Să se găsească o metodă de eliminare a elementelor 
reductibile fără a folosi vectorul suplimentar V, 


P R.0 GRAMUL 40 


Să se verifice că Z [i] I (6-54) este corp şi să se găsească 
elementele acestui corp. 
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Pe mulţimea Z [4] introducem o relație după cum urmea-= 
ză. Pentru «, peZ [î], a=f dacă 6+5 divide pe a—f. Se 
verifică ușor că această relație este o relație de echivalență. 
Notăm cu Z [i] |(64+5;) mulțimea claselor de echivalență, 
Introducem pe această mulțime”următoarele operaţii: 


AA Pat 
a+f =a+B pentru orice «fe Z[). 


AA A . 
«B=af pentru orice «Be Z[i]. 


Se poate arăta că definiția de mai sus a operaţiilor nu de- 
pinde de alegerea reprezentanţilor și că Z[s] /(64+5;) îm- 
preună cu aceste operaţii este un inel comutativ cu unitate. 

Pentru a arăta că inelul este chiar corp este suficient ca 
elementul 6-15; să fie ireductibil în Z [+], conform unei cu- 
noscute teoreme din algebră. 

Conform teoremei împărțirii întregi, orice element din 
Z [i] dă prin împărțire cu 6+5 un rest de normă mai mic 
decît 62452 = 61; evident, elementul inițial .este în aceeași 
clasă cu restul, diferența lor fiind un multiplu de 6-+5;. De 
aceea vom căuta, acei reprezentanţi ai claselor care'au norma 
mai mică decît 61. 

Funcha INA verifică dacă elementul K-+7] este în ace- 
eași clasă cu 64+57, adică dacă raportul lor este nu numai un 
element al lui Q [4], ci chiar al lui Z (4). În caz afirmativ, va- 
riabila INA ia valoarea 1, iar în caz contrar valoarea luată 
de variabila INA este 0. m 

Functia IRED determină dacă elementul M-+:N este sau 
nu ireductibil, verificîndu-se dacă M-+-N are sau nu divi- 
zori diferiți de el însuși și de unităţile inelului” Z[;]. Dacă 
există un astfel de divizor, imediat ce el a fost determinat 
IRED ia valoarea O și controlul se întoarce la programul 
din care s-a făcut o referire la funcția IRED. Dacă elementul 
este ireductibil, IRED ia valoarea 1 și se revine la programul 
care a apelat funcția. | 

Funcţia IRED:este construită după modelul programu- 
lui nr. 36. 

Programul principal începe cu verificarea ireductibilită- 
ţii lui M+IN; dacă IRED (M, N)=1, atunci este tipărit un 
mesaj care indică faptul că inelul este corp. | 
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Elementele corpului sînt înscrise în matricea EL. Numă- 
tul elementelor este memorat în variabila K. Pe prima linie 
a matricei EL este scrisă perechea (%, 9), iar variabila K 
este inițializată cu valoarea 2. Fie-1-+1J un element al“ine- 
lului. Am văzut că este suficient să considerăm perechile 
(1, ]) pentru care 2 + J <61. Putem de asemenea impune 
ca | > O pentru că dacă elementul I+- î] satisface [2 +- J? < 
<61 şi | <0, există un element II 4+/J] din aceeași clasă, 
satisfăcînd condițiile II2 + JJ? <61 și Il > 9 (vezi exerci- 
ră 1). gta că putem impune ca IE!0, 1,..., 7) şi Je 
Sînt generate pe rînd toate perechile (1, ]) cu 1, ] satis- 
făcînd condițiile de mai sus. Pentru fiecare pereche se verifică 
dacă este în aceeași clasă cu vreuna dintre cele K—1 pe- 
rechi înscrise anterior „pe liniile matricei EL; verificarea se 
face efectuînd diferența între elementele | + 2] și EL (N, 1) + 
+ EL (N, 2) pentru N = 1,2,..., K—l1 și calculând funcția 
INA pentru valori ale parametrilor egale cu diferențele pe 
componente ale elementelor de mai sus. Dacă. (|, ]) nu este 
în aceeași clasă cu nici una dintre perechile situate pe pri- 
mele K—1 linii ale matricei EL, atunci perechea (I, J) este 
înscrisă pe linia K a acestei matrici și tipărită la impriman- 
tă; în cazul contrar se trece la analizarea următoarei perechi 
(|, J). Adăugînd. perechea (0 8), obţinem întreg corpul. 

Schema. logică a programului principal apare în fig. 40.1. 


EXERCIŢII 


1) Fiel+ijeZ[i]lcut +2 <61 și 1 <0. Să se arate 
că există un element K + LEZ [4], din aceeași clasă cu pri- 
mul și care să satisfacă condițiile K2+L2 <61 și K>68. 

2) Să presupunem cunoscut faptul că Z [î] /(64+57) are 
61 de elemente. Cum poate fi atunci simplificată găsirea re- 
prezentanților cu norma mai mică decît 61 ai claselor de ex 
chivalență? 
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2 INTEGER EL(129,2) 
2 IF(IRED (6,5) E 1)WRITE(3,88) 
3 88 FORMAT(! ESTE CORP") 
4 EL(1,1)=5 
2 EL(15 ,2)=0 
| DO 13 13=];8 
8 =I3-1 
9 DO 13 I3=1,15 
15 J=J3-8 
i Kl=K-1l 
12 DO 12 N=1,K2 
13 II=I=EL(N,1) 
14 I12=J-EL(N; 2, 
15 IN=INA (111 
35 TE (IN.EQe 1200 13 
17 32 CONTINUE 
18 EL(K,1)=I 
19 EL(K, 2)=J 
25 WRITE (3 p19)Ipy 
21 19 FORMAT(! î,12,t+1,I2,11!) 
22 K=K+1 
23 13 CONTINUE 
24 STOP 
25 END 
1 FUNCTION TRED (MN) 
2 2 NORMA=M*M+N N 
3 IF(NORMA „LB e 2)GO0T0 44 
4 X=NORMA=1 
5 MM=SQRT(X) 
6 DO 3 122,MM 
u 2 PROBA «NE NOBUA/ +1 )GOO 3 
9 MP=SQRT(X)+1 
22 29 ai „I1LsMP 
12 20 "33 "Ra=1 MP 
33 K=K1-1 
14 TP(I*J+K4K „NE „L)GOTO 51 
15 MI12MxU+N*K 
26 NI2N*xU-M*K | 
17 TF(M1/X EQ „M1/I „AND «N1/X EQ. N1/I )GOTO 44 
18 M1=M*J=N*K / 
29 N1=N*U+M*K | | 
25 TP(M1/X NE M1/1 eOReN1/X NE „N1/I )GOTO 5 
21 44 IRED=6- 
22 RETURN 


23 31 CONTINUE 
24 3 CONTINUE 


25 IRED=1l 
26 RETURN 
27 END 
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15 — Programe în limbajul FORTRAN 


3) Cum trebuie modificat -programul principal pentru 
ca el să fie valabil pentru inelul Z [7] |(L-+M), unde L și M 
sînt citiți de pe cartele la începutul programului? Să, se mo- 
difice corespunzător funcția INA, 


La $ 


FUNCTION INA(K,J) 
X=(6+K+5*J)/614 
Y=(6*J-5*+K)/61e 
M=X 
N=Y | 
IF(X EQ M.AND „Y EQ „N)GOTO 2 
INA=5 
RETURN 

2 INA=1 
RETURN 
END 


m 
FăoazanaunvH 


REZULTATELE. PROGRAMULUI SINI 3 
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PROGRAMUL 41 


N 
Să se verifice cu ajutorul calculatorului că aphcaţiile nu- 
mite automorfisme interioare ale unui grup sînt într-adevăr 
automorfisme. 
3 P 
Fie G un grup și y.un element al grupului. Definim apli- 
cația fu: G— G prin: 


fu ( %) = ay pentru orice xEeG. 


Această aplicaţi ie poartă numele de automorfism ințerior al 
grupului G. Ne propunem să verificăm pentru un grup con- 
cret 4 și pentru un element fixat y din acest grup că apli- 
cația f, este'un automorfism. 

Reamintim iaptul că prin permutare de grad N mele” 
gem o aplicație bijectivă de la mulțimea, 41,2, ..., N? în 
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însăși. O permutare de grad N se.poate reprezenta cu aju- 
torul unui vector cu N componente care memorează în or- 
dine imaginea elementelor 1,2,..., N prin permutarea consi- 
derată. 

Drept grup G alegem grupul “S, al permutărilor de grad 
4.. Pentru a demonstia că /, este automorfism este suficient 


le 


- I=1;2, e 5 


At) 
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3. 
Scrie: ! 
NU ESTE OMOMORFISM - 
STOP 
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să arătăm că, această aplicație este omomorfism injectiv (gru- 
pul fiind finit, surjectivitatea este o consecinţă a injectivi- 
tății): 

Subrutina PROD calculează produsul a două permutări 
A şi B, produs definit de relația: 


C(D = A(B(D) pentru | = 1,2,..., N 


unde C reprezintă permutarea rezultată. 


Subrutina INV calculează inversul unei permutări A 
de grad N. Rezultatul este memorat într-un vector B avînd 
tot N componente. Permutarea B este caracterizată de rela- 
ţiile A -B = B-A = I, unde 1 este permutarea identică. Din 
aceste relații rezultă că pentru calculul lui B este suficient 
ca pentru fiecare | = 1,2,..., N elementul B (A (1)) să pri- 
mească valoarea |. 


Subrutina INT operează asuprdf două permutări A și B 
de grad N. Rezultatul subrutinei este memorat în. vectorul 
C și constituie produsul de permutări A-B-A-1. Deci C= 
= = f „(B). Pentru calculul lui C sînt folosite subrutinele INV 
și PROD. , 


Programul principal începe cu generarea tuturor permu- 
tărilor de grad 4. Pentru aceasta se determină toate triple- 
tele (1, ], K) de elemente din mulțimea, (1,2,3,4), diferite 
între ele şi se completează cu unal patrulea: element L a cărui 
valoare este 18—1—J-—kK. Pe fiecare linie a matricei P 
sînt înscrise valorile I1,J,K,L determinate la fiecare pas, 
obţinîndu-se astfel pe cele 24 de linii ale matricei P. toate 
cele 24 de permutări de grad 4. 


În continuare, este citit vectorul Y și se verifică dacă, 
aplicația f, este omomorfism. În acest scop în vectorii Z și 
x sînt memorate pe rînd permutările conținute în liniile 1 

și ] ale matricei P, unde | și ] parcurg mulțimea 1, 2,.. 
aj, Fie U= /y (Z) fu XD şi Vl=fu, (Z:X). Dacă vectorii 
U și VI sînt egali, atunci se trece la următoarea pereche (1,J); 
în cazul contrar este tipărit un mesaj care indică faptul să 
aplicația considerată nu este omomorfism și programul este 
oprit, 


223 


Verificarea injectivității aplicației f, se face în modul 
următor: se consideră pe rînd perechile (I, ]) cu 1, Je (142, 
„..3 243 și 1-2 |. Elementele de pe liniile 1 și J ale matricei P 
sînt transcrise în vectorii X și U. Se determină vectorii Z și 
W unde Z = f,(X) și W = fu (U). Dacă vectorii Z și W sînt 


oo I1=1;2, o ..24 


=== 


Ni 
> 


X(K)=B(1,K) 
U(K)=P(J,K) 
od aaa 
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diferiți, se trece ]a următoarea pereche (I,. ]), iar în cazul 
contrar este tipărit un mesaj și programul este oprit. Dacă 
au fost parcurse toate permutările de grad 4 (adică toate 
perechile -(I, ]) și condiția Z-FW a fost satisfăcută la fiecare 


pă INTEGER P(24,4),%X(4),2(4) „X(4) (4) „U(4);V(4),,U1(4),va1(4) 
2 NR= 
3 DO 1 1=1,4 
4 DO 2 J=1,4 
5 IF(I.EQ.J)GOTO 2 
6 DO 3 K=1,4 
7 IP (K „EQ 1 OR „EQ „9 )GOTO 3 
8 = 15-1-J-K 
9 NR=NR+1.. 
15 P(NR,1L)=I 
aL P(NR,2)=J 
12 P(NR,3)=K 
15 P(NR, 4)=1 
14 3 CONTINUE 
15 2 CONTINUE 
16 1 CONTINUE 
17 READ (1,4)Y 
18  :4 FORMI(4I1) 
19 :DQ 5 I=1424 
25 DO 5 J=1,24 
21 DO 6 K=1,4 
22 Z(K)=P(1,K) 
23 6 X(K)=P(J,K) | 
24 CALL INT(Y,Z,W,4) 
25 CALL INT(Y,X,V,4) 
26 CALI, PROD(W,V,U,4) 
27 CALL PROD(Z,X VL) 
2 CALL INT(I,U1,V | 
29 TECU (1) 08 VI) "AND U(2) BO „V1(2) „AND U(3) s80.V1(3)e) 
CAND „U( 4) EQe„V1(4) )GOTO 5 
35 WRITE(347) 
31. 7 FORMAT(! NU ESTE OMOMORFISM" ) 
32 STOP 
33. 5 CONTINUE 
34 DO 71 I1=1,24 
35 DO 71 J=1,24 
36 TE (I,EQ,1JGOTO 71 
37 DO 72 K=1,4 
58 X(K)eP(I,K) 
39 72 U(K)=P(J,K) 
CALL INT(X,X,2,4) 
41 CALI, INT(Y,U,W, 4) 
42 DO 75 K=1,4 
43 TP(Z(K) BA .W (E) )GOTO 73 
44 GOTO 71 
45 73 CONTINUE 
46 WRITE (3,74) 
47 74 FORMAT(t NU ESTB INJECTIE!) 
+48 STOP 
49 71 CONIINUE 
59 WRITE (3,75) 
51 "15 FORMAT(î APLICATIA ESTE AUTOMORFISM' 3 
22 STOP | 


SUBROUTINE PROD (A BC ph) 
ÎNTEGER A(N) ,B(N) CN) 


D0 1 I=1,N 
1 c(1)=A(8(1)) 
RETURN 
END 
SUBROUTINE - INV(A,B,N) 
INTEGER A(N)B(N) 


D0 1 I=1,N 
2 B(A(1))si 
RETURN 
END 
SUBROUTINE INT(A,B,C,N) 
INTEGER A(N),B(N),C(N),D(4) 
CALL INV(A,C,N) - 
CALI PROD(B,C,D,N) 
CALL PROD(AD3CsN) 
RETURN ) 


END 


A PUOANINVR AUAUNH OWRUDR 


REZULTATELE PROGRAMULUI SINT_: 


n i a ea too 


APLICATIA ESTE AUTOMORFISM 


pas, atunci este tipărit un mesaj care indică faptul că aplica= 
ţia este un automorfism. 
Schema logică apare în fig. 41.1. 


EXERCIŢII 


1) Observăm că în subrutina INT, pentru declararea vec- 
torului D nu sînt folosite dimensiuni variabile. Ce modificări 
trebuie făcute pentru a realiza declararea lui D ca vector cu 
N componente? | 

2) Ce se întîmplă dacă în ciclul DO început de instruc- 
iunea 2% din programul principal, impunem ca J] să par= 
curgă numai valorile I, | +1, ..., N? 

3) Care este efectul înlocuirii instrucţiunii 35 cu: 

DO 71 j=1, 242 

4) Ce simplificări s-ar putea aduce instrucțiunilor din 
grupul de instrucțiuni 19—33, în ipoteza că matricea P ar 


fi fost declarată cu dimensiunile (4, 24) și că permutările de 
grad 4 ar fi fost scrise pe coloanele acestei matrice? 
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PROGRAMUL 42 


Să se scrie un subprogram care să permită operații cu două 
siive* aflate în acelaşi vector, prima stivă incebe cu primul 
element al vectorului și este aşezală în ordine directă tar a doua 
stivă începe cu wltiinul element al vectorului și este aşezată în 
ordine inversă. 


Stiva este o listă, adică o înșiruire de elemente în care 
se distinge un prim și un ultim element iar pentru celelalte 
elemente există un element care îl precede şi unul care îl 
succede; în plus, la stivă, adăugarea unui element se poate 
face după ultimul element al stivei şi se poate scoate numai 
ultimul element al sțivei. Dacă la un moment dat stiva nu 
conține nici un element, spunem că este vidă. 

Dacă două stive nu conţin în același timp mai mult de 
N elemente împreună, prin procedeul care va fi descris mai 
departe, se poate aloca pentru memorarea lor numai N ele- 
mente. Dacă cele două stive au la .un loc N elemente la un 
moment dat și vrem.să mai punem un element într-una din 
stive, apare o depășire (OVERFLOW). Dacă o stivă este 
vidă, nu se poate face o operaţie de scoatere din ea a unui 
element (UNDERFLOW). Toate aceste situaţii trebuiesc 
analizate în subprogram, | 

Subprogramul SSTIVI cu intrarea SSTIV realizează intro- 
ducerea sau scoaterea unui element dintr-una din cele două 
stive. La activarea subprogramului SSTIVI se fac numai 
inițializările necesare înainte de a începe lucrul cu cele două 
stive, adică numărul elementelor din prima. stivă N1 se face 
O iar „numărul“ elementelor din a doua stivă N2 se face 
N-+1 unde N este numărul elementelor vectorului. De fapt 
putem spune că NI și N2 indică locaţia, corespunzătoare vîr- 


* Aici cuvîntul szivă are sensul pe care îl are cuvîntul stoc din 
unele lucrări de structuri de date. Acest termen a fost sugerat de 
matematicianul Petre Preoteasa de la Centrul de Calcul al Univer- 
sității București (Termenul englezesc este stack iar cel franțuzesc 
este pile, acesta din urmă fiind folosit şi în limba română). 
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fului stivei (ultimului element). Schema logică a subprogra- 
mului SSTIV este dată în fig. 42.1]. Variabila L are valoarea 
1 sau 2, după cum se face o operaţie în prima sau a doua 
stivă. Variabila M ia valoarea l pântru o operație de ieșire. 
Variabila IND arată dacă nu s-a putut face scoaterea (UN- 
DERFLOW), a avut loc o depășire (OVERFLOW) sau ope- 
rația a avut loc, luînd respectiv valorile 1,2 sau 3. A este 





NI=NI1+ 

| N 
„NC Da | 
1 IND= IND=3 
NI=N1-2 A(N1)=B . 


RETURN 


RETURN „RETURN 


IND=2 IND=3 
N2=N2+1 A(N2)=B 





Fig, 42ele 
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vectorul asupra căruia se operează, iar B este elementul ce 
trebuie depus într-o stivă, în cazul unei operații de intrare, 
sau este valoarea ce se ia dintr-o stivă, în cazul operaţiei 
de scoatere. | 

Programul principal după ce face inițializările chemînd 
subrutina SSTIVI, citește cîte o cartelă din care ia valorile 
L, M și eventual B dacă -este o operație de intrare; apelează 
apoi subrutina SSTIV pentru a efectua operaţia reșpectivă 
într-o stivă şi scrie rezultatul în conformitate cu valorile 
pe care le au IND, L, M şi B. După aceea se citește o nouă 
cartelă și se face. din nou o operație și tot așa pînă cînd se 
termină setul de date și programul se oprește. 

Pe prima cartelă, de date este dat numărul de elemente 
din vectorul A care se întrebuințează iar pe următoarele, 
datele necesare pentru o operaţie în stivă și anume: stiva 
în care se operează, operaţia de efectuat și eventual valoa- 
rea, care trebuie depusă. Aceste cartele au fost următoarele: 


bbb4 
11bbb23, 
21bbb12 
21bbB2 
21bbb31 
11bb15 


EXERCIŢII 
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elementele pozitive în ordinea inversă decît cea inițială, apoi 
să fie puse elementele negative în ordinea iniţială iar elemen- 
tele hule se elimină. Se va tipări vectorul atît în forma ini- 
țială cît. și în forma transiormaţă. 


2 SUBROUTINE SSTIVI(A,N,NI,N2) 
2 DIMENSION A(N) 
3 N2=0 
4 N2=N+1 
5 RETURN 
6 ENTRY SSOIV(A,N,NL,N2, L,M,B,IND) 
7 GOT0(1,2),L 
8. 1 GOTO(5, 4, M 
9 3 N1=N1+1 
15 IP(N1.EQ.N2)GOTO 5 
bi IND =3 
12 A(N1)=B 
15 RETURN 
14 5 IND=2 
15 NI1=NI=2 i 
16 RETURN 
17 4 IF(N1.EQ.;4)90T0 6 
18 IND=3 
19 B=A(N1) 
25 NI=N1-2 
21 RETURN 
22 6 IND=1 
23 RETURN | 
24 2 G070(7,8),M 
25 1 N2=N2-1 
26 IFP(N2,EQ,N1)GOTO 9 
27 IND=3 
28 A(N2)= 
29 RETURN 
35 9 IND=2 
51 N2=N2+1 
32 RE 
33 8 IF(N2.EQ,N+1)GOTO 6 
34 IND= 
35 B=A (N2) 
36 N2=N2+1 
37 RETURN 
38 END 
DIMENSION A (8596) 
READ (1 


i Fo ziIA) 

WRITE 

2 FORMATI! LISTA 2,50% "LISTA 21) 
CALL SSTIVI(A,N,NL,N2) 

5 READ (1,4,END=25)L,M,B 

4 FORMATI 211,F8,4) 

CALL SSTIVIA,N,NI,N2,L,M,B,IND) 
GOTO (20 ,21,22) IND. 


Bopaownau oh 
N 


1 WRITE ) 
12 29 WRITEC3 45) S-A PUTUT FACE O SCOATERE DIN LISTA!,12) 
13 GOTO 3 
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20 20 VODCA Pur INTRODUCE NUMARU 
S- 7 INTROD 
CooaN VISTA',12) L9F9243 


17 22 G0T0(3,7),M 
18 7 GOTO(8,9),L 


19 8 WRITE (3, 14)8 
25 15 FORMA T( 6X ,£9 4) 
21 GOTO ? 
22 9 WRITE(3,11)B: 
23 1 ORI RC 432 F9.4) 
24 GOTO 3 
25 25 STOP 
26 END 
REZULTATELE PROGRAMULUI SINT : 
IISTA 1 | LISTA 2 
NU S-A PUTUT INTRODUCE NUMARUL 15.992 IN LISTA 2 
2.3995 
, 20096, 
NU S-A PUTUT FACE O.SCOATERE DIN LISTA 1 | 
12 0925 


NU S-A PUTUT FACE O ȘCOATERE DIN LISTA.2 


PROGRAMUL 43 


Să se facă un subprogram care să lucreze cu N stive într-un 
vector. 


J 


Stivele se pun una după alta memorînd începutul și sfîr- 
șitul fiecărei stive. Pentru scoaterea unui element, verificăm 
mai întîi dacă baza stivei coincide cu vîrful, căz în care stiva 
este vidă; în caz contrar se ia elementul din vîrf și se:micșo- 
rează adresa vîrfului cu o unitate. Pentru adăugarea, unui 
element, vedem mai întîi dacă între .stiva în care se pune 
elementul şi stiva următoare mai este cel puţin un loc liber, 
caz în care se depune elementul în prima locaţie liberă și se 
mărește adresa vîriului stivei cu o unitate; dacă nu este loc 
liber, se caută în stînga și în dreapta primul loc liber și apoi 
se deplasează elementele spre partea locului liber cel mai 
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IND=3 : 
B=A(IV(J)) 
IV(I)=IV(9)-1 4 


DIA 3) 
Da 
m=2 | 


mila I=U +1, sc. 


„Nu _foriuaa? 
e ba 


- mona I=1p2g e o..şd 


ş* 999 pd 00 900 ei se - 







V(J-I+1:)=IB(J-I+2) 


M1=M1+2 
K2=1 


.vmanomsane msg 










Tv(K1)-2*1v(J) 
+1B(K2+1)> 5 





[aiva] 
T2=Iv(K1) 


I1=IB(K2+1) 
I2=IV(J) 






a. I=I1Il+], e +.,12 


A (1229+11+1)= 
SA(I2aJ+I1) | 


-..  .._-..._ 


poenoees e 






[IDD 


| 
! 
IV(I)=IV(1)+2 IB(I)=IB(I)- 


IB(I)=IB(1)+1 


IND=3 
IV(I)=IV(J)+1 
ACIV(J))=B _| 


Și Fige 45 ele 
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apropiat de vîrful stivei în care se pune elementul, după 
care se face operaţia de introducere. a elementului. 

Subprogramul STIVSI cu intrarea STIVS face operaţii cu 
N stive după procedeul indicat mai sus. Schema logică a 
subprogramului STIVS este dată” în fig. 43.1. Vectorul A 
conţine cele N stive și el are la dispoziție M locații de: memo- 
rie. IB și IV memorează locația de început și respectiv de 
sfîrşit a, fiecărei stive (pentru a vedea dacă mai sînt locuri 
libere şi după ultima stivă, IB are o locaţie în plus față de 
IV și se face IB (N+ 1) =M),]] reprezintă numărul stivei în 
care se face operația, K este 1 sau 2 după cum se face o ope- 
rație de intrare sau de ieșire, iar B și IND au aceleași semni- 
ficaţii ca în programul precedent. 

La căutarea unui loc liber în stînga și în dreapta, se fo- 
loseşte variabila MI care la sfîrșitul căutării are valoarea 1,2, 
liber numai la dreapta, s-a găsit loc liber numai la stînga sau 
s-a găsit loc liber atît la stînga cît și la dreapta. În fiecare 
din aceste situaţii se acţionează în mod corespunzător. 

Programul principal face mai întîi inițializările și apoi 
citește cîte o cartelă de date și operează în una din liste tipă= 
rind eventual anumite mesaje. La terminarea setului de date 
programul se oprește. Cartelele de date cu care a îost testat 
programul sînt următoarele: 


bbb3bbb5 b2blbbb8 
b2b2 b2b2 
blblbbbl b3b2 
b3blbbb2 b2b2 
b2blbbb3 blb2 
blblbbb4 b3b2 
b3blbbb5 blb2 
b2blbbb6 b2b2 
blb2 b2blbbb9 
b3b2 b2b2 
b2blbbb7 
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EXERCIŢII 


1) Să se facă un subprogram de calcul cu N stive într-un 
vector în care să nu mai fie nevoie de mutarea elementelor 


pentru a face loc unui nou element, folosind un vector aju=- 
ător, 


3 SUBROUTINE STIVSI(A,I pi A M) 
2 DIMENSION IB(191), Iv AM) 
3 DO 1 I=1,N 
4 IB(1)= 
5 1 Iv(1)= 
6 IB(N+1)=M 
T “RETURN | 
8 ENTRY S71V5(4, IB,1V,N,M,I,K,ByIND) 
9 GOTO(3,4) ,K 
15 4 CE (2503) „20 „1V(9))GoTo 5 
11 -IND=3 
12 =A(IV(J)) 
15 1v(I)=1V(J)-1 
14 RETURN 
15 5 IND=2* 
16 RETURN | 
17 3 IF(IV(J) EQ .IB(9+1) )GOTO 6 
18 11 IND=3 
19 IV(J)=IV(9)+1 
25 A(IV(J) )=B 
21 RETURN 
22 6 MIA 
23 DO: 8 
247 7 2v(7) "20 IB(1+1) )6070 8 
25 M1=M2+1. 
26 KI=I 
27 GOTO. 25 
28 8 CONZINUE 
29 20 DO 9 
395 DO 23241) „20. IB(J-1+2) )G070 9 
31 M1=M1+2 
32 K2=I 
35 GOTO 21 
34 


9 CONTINUE 
35 21 G070(22,25,24,25),Mu1 
36, 22 IND=1 


37 RETURN 

38 23 I1=1V(d)+1 

59 I27IV(k1) 

48 DO 14 I=11 

AL O14 DO 24 IA) cA(I2-0+11) 
42 Jlz9+1 

45 DO 15 1=91,k1 
44 Iv(I)=1v(19+1 
45 19 IB(I)=IB(I)+a 
46 PO 11 

47 24 T1=I8(K2+1) 
48 I2=IV(J) 

49 D0 16 1=11,12 
50 16 A(I-1)=A(I) 
5] ȚIzK2+1 
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52 DO 25 in ETA 


53 IV(I)=IV( 

54 15 IB(I)=IB(I1)-1 

55 GOTO 11 | | | 
56 25 IP(IV(K1)-2*1V(J)+IB(K2+1))23,23,24 
57 END , 


1 DIMENSION A (8494) ,IB(161),1V (125) 
2 READ UNI M ! 

5 1 FORMAT(214). 

4 CALL STIVS1(A,IB,IV,N,M) 

5 3 READ(1,2,END=29)L,K,B 

5 2 FORMATI 212,F8.4) 

7 CALL STIVS(A,IB,LV,N,M, L,K,B,IND) - 
E 4 VRITE(3,7)B,L 


7 FORMATI! +, NU SE POATE INTRODUCE ELEMENTUL", F19,4,' EN 


CLISTA* 13) 
G 


OTO 15 
12 5 WRITE(5,8). _ 
13 8 FORMAT(î IN LISTA*,I3,* NU MAI SINT ELEMENTE") 
14 GOTO 15 
15 6 G0T0(145,214),K 
16 14 WRITE(3,9)L,B 


17 9 FORMAT( 6X, “LISTA ' 15, 4X,F9.4) 
18 GOTO 15 

19 28 STOP 

25 END 


ARZULTATELE PROORAMULUI SINT : 


IN LISTA 2 (NU MAI SINT ELEMENTE N 
NU SE POATE INTRODUCE ELEMENTUL 6.7089 ÎN LISA 8 
A 


STA 1 4. 

LISTA 3 5, 

LISTA 2 8.0020 

LISTA 3 2 „0995 

LISTA 2 7,0005 
o OLISTA 1  O1.99%5 
IN LISTA 3 NU MAI SINT ELEMENTE 
IN LISTA 1 NU MAI SINT ELEMENTE 

LISTA 2 2 0005 

LISTA 2 9.9195 


PROGRAMUL 44 


Să se alcătuiască un program pentru găsirea unei linii, eu= 
leriene într-un graf. 


Problema se pune pentru grafe neorientate (ramurilor nu 


li se atașează un sens de parcurgere) și conexe (pentru orice 
două vîrfuri există un. drum format din ramuri care le 
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leagă). Linia euleriană se defineşte ca fiind un drum ciclic 
(adică un drum care revine la punctul de _ plecare) câre 
conţin 3 hiile_ prafului o dată și numai 6 dată; -— 


(2) 
pa 35] 
| 
| = T223,2, ca. .,19 
/ , | sCyenesi. 
(sm) || 
| - 
Nu | | Nu 
3. 4 | 
- 
j _z—>Da 
Dai 
| 
| =: 
V(K)=1 | 
Da 
(scris £] 
N Nu 
Pee | Iza, oaza 15] 
| e di “ L.] N . 
4 a (3) RU | 
] > , [| Nu 
L___ Da | | | 


Scrie _ 
DRUM SUPLIMENTAR 





BFige 44 .1e 


237 


graf conex pentru care toate gradele locale sînt pare admite 
Q linie euleriană. În cele ce urmează vom presupune că această 
condiție este îndeplinită. 

Construcţia liniei euleriene se peate face în modul ur- 
mător: 

Se pleacă dintr-un vîrf oarecare și se începe un drum din 
acest, vîrf. Continuăm drumul atîta timp cît este posibil, 
parcurgînd numai. ramuri prin care nu s-a trecut anterior. 
Datorită faptului. că gradele locale sînt pare rezultă că de 
fiecare dată cînd drumul ajunge într-un vîrf, el poate con- 
tinua pe o ramură neparcursă admiţind acel vîrf ca extre- 
mitate. Deci drumul trebuie să se întoarcă cu necesitate în 
vîrful inițial ales. Dacă nu au fost parcurse toate ramurile 
grafului, înseamnă că-există cel puțin un vîri din care mai 
pleacă ramuri; acest vîrf face parte din cele parcurse, dato- 
rită conexităţii grafului. În această situație începem un nou 
drum dintr-un astfel de vîrf, drum care se va. închide și el 
în punctul său de plecare; de aceea vechiul drum poate fi 
completat prin intercalarea drumului suplimentar. Repe- 
tînd procedeul, în final vor fi parcurse toate ramurile și 
drumul completat succesiv va constitui linia euleriană do- 
rită. , 

Să considerăm un graf cu N virfuri. El poate fi reprezen- 
tat printr-o matrice A de ordin N cu elemente întregi; ele- 
mentul A (1, ]) este egal cu 1 dacă vîrful 1 este legat printr-o 
ramură de vîriul J] și este egal cu 0 în cazul contrar. 

Funcţia | stabilește dacă toate gradele locale sînt pare. 
În caz afirmativ Lia valoarea 1, iar în caz negativ | ia valoa- 
rea . Funcţia constă în numărarea ramurilor care admit 
ca extremitate fiecare vîrf şi în verificarea parităţii nume- 
relor obținute. 

Programul: Brineibal începe cu citirea matricei A ȘI veri- 
ficarea, parităţii gradelor locale cu ajutorul funcției |. Dacă 
1= 9 programul este oprit. Calculele următoare se fac în 
ipoteza că I=l. 
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Vectorul V memorează starea virfurilor: inițial toate 
componentele vectorului priimesc valoarea 2 pentru a marca 
faptul că nu s-a trecut încă prin ele; în momentul cînd dru- 
mul ajunge într-un vîrf K, V (K) primește valoarea 1. 





N //S > 
ASA 


Fige 44.2, 





Se pleacă din vîriul K=1]. Valoarea lui K este tipărită, 
Se stabilește primul vîrf L cu care este legat virful K; 
A (K, L) şi A (L,K) primesc valoarea O pentru a preveni par- 
curgerea aceleiași ramuri de două ori; apoi K ia valoarea 
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L și procesul se reia. Dacă vîrful K nu mai este legat prin 
nici o ramură neparcursă de vreun alt virf, se verifică dacă 
au fost parcurse toate ramurile graiului (adică dacă toate 
elementele matricei A sînt egale cu 0). În caz afirmativ, 
programul este oprit, iar în caz contrar se trece la căutarea 
unui drum suplimentar. 


Pentru determinarea drumului suplimentar, atribuim 
lui K valoarea numărului primului vîri pentru care mai 
există ramuri care îl admit ca extremitate, tipărim un me- 
saj pentru a, indita începerea drumului suplimentar și reluăm 
procesul de mai sus de trasare a-unui drum printr-un 
grai. 

Linia euleriană poate fi reconstituită din rezultatele ti- 
părite de program, intercalînd succesiv drumurile .supli- 
mentare obţinute în primul drum găsit. 

Schema logică apare în fig. 44.1. 


Graful cu care lucrăm efectiv în prograinul de fâță apare 
în fig. 44.2, 


EXERCIŢII 


1) Se pot înlocui instrucțiunile 5—7 din funcţia 1 cu 
instrucțiunile: 


DO 13 K =1,N 
13 IF (A (], K).EQ.1) S=s+-1 


fără ca rezultatul să se schimbe? 

2) În ce caz programul se opreşte prin executarea in- 
strucțiunii 33? 

3) O problemă asemănătoare cu cea tratată în acest 
program este următoarea: care sint condițiile pe care tre- 
buie să. le îndeplinească un graf pentru ca să existe un drum 
care să plece dintr-un vîri 1 al grafului și să ajungă într-un 
virf J, trecînd o dată și numai o dată prin fiecare ramură a 
grafului? 
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4) Ce modificări trebuie aduse programului dacă ad- 
mitem și posibilitatea că două virfuii să poată fi legate prin 
mai multe ramuri (deci ca elemeritele matricei A să fie orice 


numere naturale)» | 
E ZULTATELE PROGRAMULUI SINT : 





A 
2 
3 
? 
5 
1 
8 

1 PUNOTION T(A N) 2 

2 - INTEGER. A(NN) S 25 

5 DO 12 Je, - 25 

4 S=5 JI 

5 DO 15 E=1,N 

6 IE (ACI "EA, I)S=8+1 5 

7 15 CONTINUE 14 

* . 

Ş 9 1F(5-5/ 2*2)9912,9 DRUM SUPLIMENTAR 
1 12 GONTINIE s 
11 2 c 
12 I=1 „ 
15 RETURN 
14 END 13 

6 

1 INTEGER AI5 15),v(15) 8 

2 READ (1,6)4 9 
3 6 FORMAT(15I1) a 

4 IF(I (A, ) 50 „A)Ș10P 15 

5 DO 14 d= 2 

6 14 v(J)= 12 
T K=2 4 

8 16 v(K)=2 15 

9 WRITE (3, 25)K 9 
15 25 PORMAT(I 12) 14 
Il DO 16 L=1,l ir 
12 IP(A E, i, 16,5 13 
15 5 A(K,L) 1 
14 iai 15 
15 K= 13 
16 GOTO 18 3 
17 16 CONTINUE 14 
1090 29 5220015 E 
19 D0 = 15 
25 IF(A(I1, 723 NB „0)0070 4 3 
21 29 CONTINUE - DRUM SUPLIMENTAR 
25 ag DO 21 saza 25 FĂ 
23 DO = 34 
24 TEVI) BA. 2007 2 G 
25 DO 22 12=1 15 
26 —OTP(A(II, 12) i30 „p)coro 22 2 
271  KeTi DRUM SUPLIMENTAR 
28 WRITE( 3,26) 11 
29: 26 PoRMa n : “Dau SUPLIMENTAR | 14 
sg i: GOTO 18 12 
31:22 CONTINUE 13 
52 21 CONTINUE 14 
53 STOP 15 
34 END 11 
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PROGRAMUL 45 


„Să se găsească o metodă: pentru memorarea unui arbore 
binar şi să se alcătuiască un program pentru parcurgerea av- 
borelui. 


Mai întîi precizăm că prin arbore binar înțelegem un 
graf orientat, conex și fără bucle; în “fiecare nod sosește 
exact o famură, cu excepția nodului inițial către care nu 
pornește nici o ramură din nici un nod. Un arbore binar 
este caracterizat de faptul că din fiecare nod pleacă cel 
mult două ramuri; facem distincţie între cazurile în care o 
ramură pleacă spre dreapta sau spre stînga. 

Pentru a putea memora arborele, fiecărui nod îi atașăm 
4-valori și anume o valoare ce constituie informaţia atașată 
nodului, numărul nodului din care provine, numărul nodu- 
lui spre care pleacă o ramură la stînga și numărul nodului 
spre care pleacă o ramură la dreapta. Cu aceste valori se 
formează în ordine vectorii INF, PROV, S și D. 


Dacă din nodul N nu pleacă o ramură spre dreapta 
(stînga), indicăm acest lucru punînd D(N) =6 (S (N) = 
= 0). Pentru nodul inițial punem PROV(N) = 9 

Arborele pe care ne propunem să-l parcurgem apare în 
fig. 45. 2. Informaţia atașată fiecărui nod coincide cu numă- 
rul nodului: 


N reprezintă în program numărul nodului curent. Pro- 
gramul începe cu determinarea nodului inițial, al cărui 
număr va reprezenta. prima valoare pe care o primește N, 


De fiecare dată cînd ajungem într-un nod prin care nu 
s-a trecut încă, numărul acestui nod este scris la imprimantă, 
În continuare avem trei posibilități: 

a) din nodul considerat pleacă o ramură spre stînga; 
atunci N primește ca valoare numărul nodului care consti- 
tuie extremitatea ramurii (valoare care este tipărită, la 
nodul N ajungîndu-se acum pentru prima dată) şi se reia 
raționamentul. 
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b) din nodul considerat nu pleacă ramură spre stînga, 
dar pleacă o ramură spre dreapta; atunci N primește ca 
valoare numărul nodului care constituie extremitatea ra- 
murii, numărul nodului este tipărit și se revine la punctul a) 
pentru noua valoare a lui N. 

c) din nodul considerat nu pleacă ramură, nici spre dreap- 
ta, nici spre stînga, adică sîntem în cazul unui nod îi- 
na]. Există două subcazuri și anume: 

cl) nodul N constituie extremitatea stingă a nodului 
de proveniență ; atunci N primeşte ca valoare numărul aces- 
tui nod și se reia raționamentul începînd de la punctul b). 

c2) nodul N constituie extremitatea dreaptă a nodului 
de proveniență; atunci N primește ca valoare numărul aces- 
tui nod și se reia raționamentul începînd de la punctul c) 
pentru noua valoare a lui N, 

Schema logică, care descrie mai exact algoritmul, apare 
în fig. 45.1. 

Fiecare dintre cartelele de date conține valorile ataşate 
cîte unui nod. 


EXERCIŢII 


1) Se pune întrebarea dacă se poate înlocui ciclul DO 
constituit de instrucţiunile 19—14 cu următorul ciclu: 


DO 3N =1,12 
IF (PROV (N). EQ. 2)GOTO 7 
3 CONTINUE 


2) În grupul de instrucțiuni 24—28 se observă că indi- 
ferent de îndeplinirea condiţiei N=S (PROV (N)), se exe- 
cută mai întîi instrucțiunea N=PROV (N). 

Cum putem reduce numărul de instrucțiuni din acest grup? 

3) Să se găsească o metodă pentru reducerea cantităţii 
de memorie necesară păstrării informației conținute în vec- 
torii S, PROV și D, și să se modifice în mod corespunzător 
programul. 
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Căteşte INF SD „PROV 
„Serie INF S D,PROV 


do I= 23 ... 12 
] 


cr „nn pese 





N=PROV(N') 





N=PROV() 


Pie 45ale. 





Fige 45 a2e 
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2. INTEGER INP(12),8(22) »PROV(12) „D(12) 
2 READ (21 O) CINP(I) SE ati fra PROV(I), I=1,12) 
E: 2 FORMATI 415) Za 
4 WRITE (3,5 
5 Ş FORMAT(! 1,18(%1)/' sINPx S + D *PROV*!/! 1,18(1x1)) 
6 WRITE (3,19) (INF(I) SCI) DI), PROVCI) 21 =1 12): 
7 FORMATI. x 13 r3,t RD 915 
8 VRITE(3,1l 

13 N sont! '-18(1x)) 

12 1PCEROVCI) NE „4 )GOzo 3. 

12 N=I 

15. Soizo 7 

14 3 CONTINUE 

15 1 WRITE(3,8)INF(N) 

16 8 FORMAT(3X,I3) | 

17 " IP(8(N)E0.4)007o 23. 

18 N=S (N) 

19 GOTO ? | a 

20 22 TE(D(N) 58 „P)GOTO 23 

2 

22. 

23 23 SO OROV(N) „20 +p)s 

24 ze(-zp „5 (PROV() )jcono 39 

25 zPROV) 

26 GOTO 2 

27 35 No PROVEN) 

23 GOTO 22 

2 


REZULTATELE PROGRAMULUI SINT_: 


nndeluliaiinău ouă ice Jail 
HINF* S + D *PROV*” 
XXX XXX XXX XX XXX XXX 


l* Ax x 3x* 


XR 
O 
* 
E 
> 
We) 
* 


XE mmm 


i i 
wxexxererreaxita 
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PROGRAMUL 46 


Să se facă un program pentru rezolvarea problemei trânspor- 
urilor. 


Pe scurt, problema transporturilor se enunţă în felul 
următor: avînd M centre de consum și N centre de pro- 
ducție pentru un material, știind necesarul B(1) (| = 1,2, 
..-» M) al fiecărui centru de consum și cantitatea produsă 
de fiecare centru de producție D(]J) (] = 1, 2, ..., N) precum 
și costul transportului C(I, ]) al unei unități din material 
de la centrul de producţie J] la centrul de consum |, să 
se găsească ce cantități A(I, J) trebuiesc duse din centrele 
de producție ] în centrele de consum 1 pentru ca valoarea 
totală a transportului să fie minimă. 

După modelul expus în continuare, se pot rezolva foarte 
multe probleme puse de știință și economie. 

Vom expune mai întîi bazele teoretice ale soluției pro- 
blemei și apoi vom da rezolvarea ei cu ajutorul'calcula- 
torului. 

Condiţiile. ce trebuiesc să fie îndeplinite sînt următoa- 
rele :- 


F => ca; = minim (1) 
I=1>1 

> a;; = d; pentru 7=1,2,...,n (2) 
aj =bi D î => 1, 2,...m (3) 

ZI 

ăi; > 8 = 1, 2,....m; = 1,2 (4) 

c; > 0 2 = 1, 2...m; 3 => 1, 2n (5) 

1=i 3=l 


Dacă ultima condiţie nu este satisfăcută (cererea nu este 
egală cu oferta), atunci se introduce fie un centru fictiv de 
producție care „produce“ diferența dintre cerere și ofertă 
și pentru .care transportul costă mult în comparaţie cu 
celelalte costuri; în cazul cînd cererea este mai mare decât 
oferta, se introduce fie un centru fictiv de consum care 
„consumă“ diferența dintre ofertă și cerere și pentru care 
transportul nu costă nimic '(de exeriplu, presupunem că 
ceea ce se produce în plus se înmagazinează în locul de pro: 
ducere). | | 

Spunem că matricea A = (4;;) este o soluție posibilă, 
dacă pentru această matrice sînt verificate condițiile (2), 
(3) și (4). Relaţiile (2) și (3) dau un sistem cu p-+ n ecua- 
ţii și mmx*n necunoscute, dar ținînd seama de relația (6) 
cel mult + n — 1 ecuaţii sînt linear independente. Se 
numește soluție de bază pentru problema transporturilor o 
matrice A.= (4;;) care conține m+n — 1 elemente strict 
pozitive, restul fiind zerouri, și este soluție posibilă. Problema 
este degenerată dacă există soluții posibile cu mai puțin 
de m+- ou — 1 elemente strict pozitive. O astfel de soluţie 
poartă numele de soluție de bază degenerată. 

Spunem că o solutie este optimă dacă este soluţie posi- 
bilă și îndeplinește condiția (1). Dacă problema este nedege- 
nerată, soluția optimă este unică și este soluție de bază. 
Dacă problema este degenerată, soluţia optimă nu este unică. 

Pentru a, găsi soluţia optimă, se găsește mai întîi o solu- 
ție de bază și apoi această soluţie este îmbunătăţită pînă 
cînd se găsește soluția optimă. O soluţie de bază se poate 
găsi prin mai multe metode dintre care două sînt mai cunos- 
cute: metoda unghiului de nord-vest și metoda costului 
minim. Vom descrie în continuare metoda unghiului de 
nord-vest pe care o folosim în. programare mai departe. 
In această metodă se fac toate elementele matricei A egale 
cu O și începînd cu 5 = | şi = se.calculează x, după 
formula. 

x; = min (6; d; 


se înlocuiesc b, și 4; cu b; — x; și respectiv d; — +; și apoi 
se ia 4+ 1 în loc de î dacă 5; = B sau 7 + 1 în loc de 7 
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în caz contrar și se calculează noul x,;, ca mai sus. Se repetă 
procedeul pînă cînd se ajunge la == și = cînd se 
obține în matricea A o soluție de bază. Dacă de exemplu 
vectorii B și D sînt respectiv (3, 4, 5) și (1,3, 6, 2) soluţia, 
de bază se obține în; felul următor: 


1 2 8 9813 2 9 

0 1 3 90]43 8 

O 8.3 2|52 8 
13 6 2 

3.1 39 
2 & 


în. stînga matricei am pus modificările făcute în vectorul 
B, iar sub matrice:.am pus modificările din vectorul D. 


Y, 
altui element. Plecînd de la elementul a, se caută pe linia 
k un element din-bază apoi se caută pe coloana acestui ele- 
ment un alt element din bază, se merge din nou pe linie 
şi se procedează astfel pînă cînd se ajunge din nou în coloa- 
na Î. Se formează astfel un șir de elemente: ai, iu Ain, 
Aita >=» dpi de termeni din bază în afară de primul. Fie 
7 cea mai mică valoare a termenilor de ordin par din șirul 
precedent ea fiind egală cu a;;; se scade valoarea 7 din ter- 
menii de ordin par ai șirului și se adună la termenii de ordin 
impar și așa se introduce în bază elementul az, și se scoate 
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din bază elementul 4;;. Prin această operație se obține tot 
o soluție de bază, fiecare ecuaţie conținînd variabile ce apar 
ca perechi în acest șir dintre care la una se adună 7 iar la 
cealaltă se scade 7. Deci egalitățile (2) și (3) se păstrează. 
n plus, se demonstrează că prin acest procedeu valoarea lui 
F se micșorează. Procedeul descris mai înainte poartă numele 
de schimbarea bazei. Dacă schimbînd baza nu se obține 
soluția optimă '(există A; < 0) se face o nouă schimbare 
de. bază și așa mai departe. 

Pentru rezolvarea problemei pe calculator se folosesc 
matricele A care dă soluția de bază și în final soluția optimă, 
B care dă cererea, D care dă oferta, MM care memorează 
locurile ocupate de elementele ce intră în bază și care con- 
ține M + N — 1 elemente de 1 restul fiind Q, C care repre- 
zintă matricea costurilor, U și V care memorează multi- 
plicatorii și E care memorează valorile A; = c;j — 4; — Vje 

Subprogramul SOLB -calculează o soluție de bază după 
metoda unghiului de nord-vest. Schema logică a acestui 
subprogram este dată în fig. 46.1. La început, atît matricea 
A cît și matricea MM sînt umplute cu (A. Apoi începînd 
cul = 1 și J=— 1 se urmează o cale sau alta după cum B(1) > 
> D(J) sau nu. Dacă da, se pune în A(I, ]) valoarea lui 
D(J), se pune MM(I, ]) = 1, se scade D(]) din B() și D(J) 
și se trece la coloana următoare pe aceeași linie; dacă nu 
s-au depășit limitele matricei se reiau calculele de la compa- 
rarea lui B(1) cu D(]). Dacă B(I) < D(]) se procedează analog 
operînd cu B în loc de D și la urmă se ia o nouă linie în 
loc să se ia o nouă coloană. 

Trebuie să remarcăm faptul că și în cazul cînd problema 
este degenerată, în bază intră tot M+ N — 1 componente 
(unele dintre ele putînd fi eventual nule). Calculele efectuate 
în continuare permit determinarea unei soluţii optime şi 
în cazul cînd problema este degenerată. 

Subprogramul SCBAZ introduce în bază elementul din 
linia LI și coloana J] în locul altui element. „Introducerea în 
bază a unui element este făcută după procedeul indicat mai 
înainte. Matricea IC memorează linia şi coloana fiecărui ele- 
ment din șirul, găsit. Schema logică a subprogramului este 
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dată în fig. 46.2. La începutul subprogramului,'K și L repre- 
zintă linia și coloana ultimului element care a fost introdus 
în șirul care trebuie găsit, Kl și LI sînt linia și coloana ele- 
mentului care se caută să fie introdus în șir, iar MI este numă- 
rul elementelor introduse în şir plus o unitate. Primul element 
introdus în șir este cel din linia I și coloana J. Se caută pe 


po II, 2, 
i 
= 
| K 
Ta 
| MM(1 J)=9 
L == 2 
I=1] 
J=1 


iC a 









A(1,J)=B(I) A(I,J)=D(J) 
MM(I,J)=2 | MM(I,J)=1 
(d)=0(9)-B(1) B(1)=a(1)-D(9) 
B(I)=4 D(J)=0 

I=I+l 






J=J+l 


Nu Nu 
(_RETURN ) 
Pig, 46.1,. 


linia K primul element din bază; dacă el se găsește chiar 
în coloana L, se caută în continuare alt element din bază. 
Dacă se găsește unul'se introduce în șir și dacă acest element 
nu se află în coloana J, se începe căutarea unui: eiement 
din bază în coloana L pînă se găsește unul care să nu fie 
în linia K. Dacă pe linie nu se găseşte un element din bază 
care să satisfacă condiţiile de mai sus, se revine la ultimul 
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K=Ic(152) 
L=10 (2,2) 
MM] 


— K1l=2, 4... MI 


| ui 
| | 
azaaă] 
| 
Da E 
Da | 
<i> 
AR a 
usi Er 
K=1C(2,M1-1) 
| L__L=ro(2,K1) | EI=I10(1,M1) 
Mk, L)=B sTpropi 
x=AK,L) Da K+ 


= L_K1=1,9peeesMlj + 
| . 

! 
L 





K=IC(1,K1) > 
=10(2,K1) 

A (K,D)=A (K,L)+X | 

—.——— NU M1=M1-2 


| L=IC(2,M1-1). 


| 

| K=IC(1,K1) - 
4 L=I1C(2,K1) 

Î OAK LOA (K,L)-X 
L IC(1,M1)=K 
IC(2,M1)=L 


A MITIC IEZI ? =Ml+1 


RETURN 





Fige 46.2, 
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17 — Programe în limbajul FORTRAN 







| | | 
| 


r I=1,2p e... 195 






Pu=om m = ee 


aul ie 
| 


Piz. 46.3. E UNI. A | 


Vu 


Da (o 
o TU(T)ai 


U(I)=C(129)=V(9) 










în.) m na dn = o n. 
Lă 
Lă 





| 
1 
| 
| 
| 
| 
| 


] 
E. 


B(I,9)=0(1,9 
Sg 





pompe 





Fige 46 .5e 
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clement pus în şir și se încearcă să se pună în șir un alt 
vlement din bază de pe aceeași linie. Pe coloană se proce- 
dcază la fel. Procedeul se contiiitiă pînă cînd am găsit un 
«lement din bază ce se află în coloana J. Apoi se caută ele- 
mentul A(K, L) din șir, cel: mai mic dintre cei de ordin par. 
Acest, element se scoate din bază (dacă sînt mai mulţi, se 
scoate unul din ei) iar elementelor de ordin impar din șir 
li se adună valoarea acestiii €leiiât şi celor de ordin par 
li se scade “valoarea acestui element. 

Subprogramul ELMIN dă poziția pe care o ocupă cel 
mai mic element al unei matrice. Schema logică a acestui 
subprogram este dată în fig. 46.3. Șe presupune la început 
că elementul A(1, 1) este cel inăi mic și se compară cu el 
celelalte elemente ale:matricei,, De fiecare dată cînd se găseşte 
un element.mai mic, comparațiile ulterioare se fac în raport 
cu acest element. Ultimul elentent în raport cu care se face 
comparaţia este cel mai mic element al matricei. 

Subprogramul VĂL calculează matricea cii elementele 
ij = Ci — uk —v;. Schema logică este dată în îig. 46.4. 

Subprogramil MULT calculează inultiplicatorii U.= 

= (4) şi V = (v,). Schema logică a liii este dată în fig. 46.5. 
subprogramul folosește doi vectori 1U și IV ale căror compo- 
nente la. îriceptit âu vâloarea' & și se schimbă în 1 de îiidată 
ce a fost calculată valoarea lui UCI) respectiv V(J). Deoarece 
sint M + N necunoscute și M + N — 1 ecuaţii, una dintre 
necunoscute rămîne arbitrară şi dă âceea se ia la început 
U(1) = 9. Apoi se caută pe linii și pe coloane elementele 
U(D) și V(J) pentru care ună din ele.a fost calculată deja, iar 
cealaltă nu și, în plus, elementul A, ]) este în bază; se 
determină eleinentul riecălculăt încă și se caută alți | și J] 
pînă când toate elementele vectorilor U și V au fost găsite. 

Programul Brimeibal citește datele, stabilește egalitatea 
între cerere și ofertă și calculează soluția optimă. Schema 
logică a lui este dată în fig. 46.6. Pentru testarea programu- 
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H ] 


1=132ş e sosM 


LL . 
2 


SCBAZ 


ANM, E NR 


E] 


/. Mesaj f. 


M=M+]. 
B(M)==X 


ÎN IE 2 PCPPPERLI 


i 
| C(M,J)=27900 


ES 


Bo oa au mpa 


NI 


Lea 


= 


N 


— 


- OD 


O 


L=IC(2 


SUBROUTINE SCBAZ(A MM, 
DIMENSION A(19,15), rit vii 1392 „Ic (2, 2 294) 
L=J 
MIl=1 
IC(1,M1)=K 
IC (2, *M1)=L 
MI=Ml+1 
Ll=] 
IF(MM(K,L1) „EQ .5)GOTO 1 
TF(LI+EQ+ „L)GOTO 1 
=L 
IC (1,M1)=K 
Ic(2, 'M1)=L 
ML=Ml+1 
LP( 2 5Q+9)G0TO 2 


K 
IF(MM(K2, L) „BQ.6)GOTO 3 
IF(K1.EQ .K)GOTO 3 
K= 
TC (1,M1)=K 
IC(2'M1)=L 
Ml=Ml+1 
GOTO pu 
LI=L1+1 
1F(L1.LE.N)G0TO 5 
MI=MI=1 

K=I10(2,M1=1) 
KI=I0 (1,M1) 
K1=K1+1, 
IF(KI «LE „M)GOTO 6 
ML=MI=1 

M1-1.) 


Laza0(3 


DO 7 K1=2 
IF(A(K EA CIC(I k1) „I0(2, K1)))G0T0 ? 
K=IC (1, *K1) 
L=IC(2, 'K1) 
CONTINUE 
MM(K, L)=65 
X=A(K, L) 
D0 8 K1=1 M1 2 
K= =70(1,K13 
L=IC(2,K1) 
A(K, L)=A (K, L)+X 
D0 9 K1= 21, 2 


A(K LA (KA L)-X 
MM(I 3U)=2 
RETURN 

END 
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1 SUBROUTINE SOtB(A,8,D,MM,i, kN 
2 DIMENSION A(15,17),B(1) EEE 0rt15,22) 
3 DO 1 1=1,M 
4 DO 1 J=1/N 
5 A(I3U)=5 
6 1 MM(I,J)=p 
T I=2 
8 J=1 
9 3 IF(B(1).GE.D(J))GOTO 2 
15 A(I,J)=B(1) 
11 MM(I, J)=1 
12 | D(J)=D(I)-B(1) 
13 B(1)=g 
14 I=I+1 
15 IF(I ,0T.M)RETURN 
16 GOTO 3 
17. 2 A(1,J)=D(J) 
18 MM(I,J)=l 
19 B(I)=B(1)-D(J) 
25 D(J)=p 
„21 J=J+21 
22 IF(J.GT,N)RETURN 
23 GOTO 3 
24 END 
2 SUBROUTINE MULT(C,MM,U,V,M,N) 
2 DIMENSION 0(15,15 (18, 14) 045), V(15) 10 (190) „EV(122) 
3 DO 1 1=1,1925 
4 IU(1)=5 
5 1 IV(I1)=5 
6 U (1)=5 
7 IU(1)=1 
8 5 DO 2 I=1,M 
9 DO 2 J=1,N 
19 IP(IU(1)+1V(J) .NE.1)G0T0 2 
11 IF(MM(I,J) „EQ.9)GOTO 2 
12 IF(IU(1) „EQ. 1)6070 3 
13 IU(1)=z1 
34 U(1)=C(1,9)-V(J) 
15 GOTO 2 
16 3 Iv(I)=1 
17 V(I)=C(I,9)-U(1) 
18 2 CONTINUE 
19 DO 4 I=1,M 
29 “TP(IU (1) «EQ +P)GOTO 5 
21 4 CONTINU 
22 DO 6 J= 1N | 
23 20 (1v(7)'20.)6070 5 
24 6 CONTINUE 
25 RETURN 
26 END 
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N 


SUBROUTINE  ELMIN(A,M,N,K,L) 
DIMENSION A(19,19) 

K=1 

L=1 

D0 1 ISI M 

DO 1 

ze GaLi „LEA(I,9))G0To 1 


123 
1 CONTINUE 
RETURN 

END 


SUBROUTINE VAL(C,U,V-E 
DIMENSION „e 030310) za, MA az), v(15) 
DO 1 151.5 
DO 1 J=1 
1 BC za GUI a)-uczd-uta) 


20 


_ DIMENSION A (19 15) ,c(25,14) ,B(156),D(19),MM(15,18)$ 
'CE(19,19) F(19);G (18) 
READ( 1 1 N N 
1 FORMAT 
READ(1 2) (8170 72340) 
2 Fonuan! 37F8.3)! 
READ(I „2)(0(Î) prea N) 


3 ascita n „I=1,) 


7 


DO e): 
4 Dotat)? | 


$ Y=Y+D(I1) 
X=X=t 
1F(X)6,7,8 
6 WRITE( ț ) 
9 FORMATE ESTE MAI MARE CEREREA DECIT OFERTA) 


8 WRITE(3,19) | 
ai] PORMAT( 1 BȘTE MAI MARE OFERTA DECIT CEREREA!) 


D(N)=X 
DO 12 I= pi su 
da C(I4N)=Be 
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50 7 CALL SOLB(A,B,DMM,M,N) 
1 24 CALL MULT(C ,MM,F,G,M,N) 
32 CALL VAL(C;EF GEN] 


35 CALL SNA L EM,N,K,L) 
34 IP(E(K,L) .GE.5)GOTO. 13, 
35 CALL SCBAZ(A;, MMM NK,L) 
56 GOTO 14 

37 15 DO 15 I=1,M 

38 15 WRITE(3 16) (A(1 II) ,9=1,N) 
39 16 FORMAT(! ',15(F zlp.3 „3x9) 
49 STOP 

4 END 


REZULTATELE PROGRAMULUI SINT : 





9.5 98.5 1.005 2 „005 
5.5 9.5 4.099 p.5 
1095 3945 1.920 9.5 


lui au fost folosite următoarele date: M=3,N=4,B = 
= (3, 4, 5), D = (1, 3,6,2) 


19 20 51 
c=| 3 742 
1 157 


EXERCIŢII 


1) Să se facă un subprogram pentru calculul lui F din (1). 

2) Să se modifice programul principal pentru a putea 
fi tipărite de fiecare dată soluția de bază găsită și valoarea 
corespunzătoare pentru F. 

3) Să se facă schema logică și subprogramul corespun= 
zător găsirii unei soluții de bază prin metoda costului minim, 
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REZULTATELE EXERCIȚIILOR 


PROGRAMUL NR. 1 


1) Subrutina cerută are forma următoare: 


SUBROUTINE DEP(X, N, M) 
DIMENSION X(N) 
MIl=N-—M 
DO 111=1,M 
I=M+1—1N 
DO02]=1,M1 
A = XQ) 
X() = X( + 1) 
X( +1) = 
2I=1+-1 
1 CONTINUE 
RETURN 
END 


Schema logică apare în fig. 1. (R). 


2) Vom număra de cîte ori se schimbă două elemente ale 
vectorului între ele. 

În cazul primei metode se fac' M(N — M) astfel de schim- 
bări, deoarece elementul care se află inițial pe poziția 
I( <I<<M) este mutat peste N—M elemente. 

În cazul celei de a doua metode, se fac N/2+M/2+ 
+ (N — M)/2 = N schimbări de elemente, deci numărul 
de calcule va fi mult mai mic. Se observă că în acest ultim 
caz numărul de schimbări nu depinde de M. 
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3) Se înlocuiește MI cui. N—M îri itistrucțiunile 17 şi 18, 


p=— 
1 

4 

[! 

| 
ir 
li 
|] 
| 
| | 
| 
Il 
|| 
] | 
| 





PROGRAMUL NR. 2 


1) Trebuie să punem ERR = 13 în loc de ERR = 195 
în instrucțiunea 1. 

2) Cînd se citeşte o cârtelă ce conţine caracterele | i se 
oprește, execuția programului. și se dă un mesaj de sfârșit 
de fișier. 

3) Cazurile A = Bși A > se pot tiată împreună, 
deci se'pot scoate instrucțiuiiile 18, 19, 20 și 21 idr instiuc- 
țiunea 17 se înlocuiește cu instrucțiiinea: 

IF(DELTA) 9, 8,8 
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PROGRAMUL NR. 3 


1) Nu, deoarece în cadrul acestor calcule se modifică și 
valoarea lui MI. 

2) Nu afectează cu nimic execuția programului. 

3) M(1) ia valoarea 36. 

4) Insţrucţiunea DATA se completează cu ,B/'—”| 
după instrucțiunea a 3-a se pun instrucțiunile 


X=A 
IF(M(). LT. 0)X=B 


iar instrucțiunile 9 — 19 se înlocuiesc cu instrucţiunile: 


2WRITE (3,6) MU), X, UF(J — 1), 1P(J— 0, 4,]= 
(2, N), IF(N), IP(N) 
6 FORMAȚ (18, ' = „Al, 13(14, "m! 12, AL, 'X)) 
GO TO 4 
SWRITE (3,6) M(I), X,IF(1), IP(1) 


PROGRAMUL NR. 4: 


1) Subprogramul BINARN nu păstrează valoarea inițială 
a lui P și de aceea nu s-ar mai păstra nici valoarea lui N din 
programul principal. S-ar putea ajunge astfel la un ciclu 
infinit în programul principal. 

2) La sfîrşitul executării subprogramului, matricea A .ar 
conține cea mai mare putere de forma 2: a matricei A calcu- 
lată și de aceea nu se poate folosi matricea A în locul matricei 
D dacă mai este nevoie în continuare de matricea A, 

3) Instrucţiunile 6—13 din subprogramul PTMAT se 
pot înlocui cu următoarele instrucțiuni echivalente: 
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DO 31=1,M 
DO4 J=1,M 
B(I, J)= 9 
4 DU, ]) = A(,)]J) 
3BU,Î) =1 


4) În program se calculează Ai, At și A? dar la impri- 
mantă apare numai ultimul rezultat pentru că instrucțiu- 
nile de scriere sînt puse după încheierea ciclului după N. 
Pentru a apare toate rezultatele, trebuie ca instrucțiunea a 
12-a să fie mutată înainte de instrucțiunea a 17-a. 


PROGRAMUL NR. 5 


1) Instrucţiunile 4—7 din programul principal se pot 
înlocui cu: “ 


M = IND(K) 
M = J — ] / M*M 
M=—|+:+*M 


deci nu este necesară introducerea variabilelor MI și M2. 


2) În programul principal se adaugă instrucțiunea de 
declarare: 


INTEGER A(19) 
iar instrucţiunile 3—7 se înlocuiesc cu: 
CALL MARY (J,2, A, 19) 


M=1l 
DO 5 MI= 1,19 
M2 = ll — MI 


IF(A(M2)) 6, 7, 6 
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6M=M+N 

IF(M. GT.K)M=M-—M/K-+K 
ÎN =—N=+N 

IF(N. GT.K)N=N-—N/K+K 
5 CONTINUE 


În acest grup de instrucțiuni, N memorează, succesiv, 
clasele de echivalență ale lui I, 12, 1+,..., iar M memorează, 
succesiv, clasele de echivalență ale produselor intermediare 
care intervin în relația (1). | 

3) Vom folosi funcția PRIM care stabilește dacă un număr 
natural este prim sau nu, primind corespunzător valoarea 
l sau % 


Funcţia IND1 primește inițial valoarea N și efectuează 
calculul: INDI = INDI+(1—1)/l 
pentru fiecare I prim și mai mic decît N, avînd și proprietatea 
că îl divide pe N. Forma. acestei funcții este următoarea: 


FUNCTION INDL(N) 

INDI = N 
MIl=N-—1 
DO 25.1=2,M1 
IF(N/L* 1. NE. N) GOTO 25 
IF(PRIM(). NE. 1) GOTO 25 
INDI = INDI+(1—1)/1 

25 CONTINUE 
RETURN 
END 


unde funcția PRIM este descrisă în programul 35. 

4) După a treia instrucțiune din programul principal 
scriem instrucțiunile următoare: 

IF(I. GT.1) GOTO 6 

M=—!] 

GOTO 7 


unde numele de instrucțiune 6 și 7 trebuie atașate instruc- 
țiunilor 4 și 8. 
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PROGRAMUL NR, 6 


1) Facem întîi observația că cifrele din baza 8 pot fi 
considerate ca cifre în baza 19 și deci nu mai este necesară 
apelarea subrutinei ALG pentru trecerea lor în baza 10. 
Programul va începe cu apelarea subrutinei MARY pentru 
hecare pereche (|, ]) unde 1,J€ (1, 2,.... 8); rezultatele 
sint înscrise în poziţiile corespunzătoare din matricea M, 
Este scrisă după aceea la imprimantă tabla înmulțirii (adică 
elementele calculate ale matricei M) bordată suș și la stînga 
de cifrele 8, 1, 

Programul are “următoarea formă: 


DIMENSION M(8, 8,2), K(2) 
DO 2 l=1,8 | 
I=U1—1 

DO 2 jl=1,8 


j=yjl—l 
CALL MARY (+ J,8, K, 2) 
MI, JL, 1) = K() 
MI, Î1, 1) = KE) 
M(1, J1, 2) = K() 
2 M(J1, 1, 2) = KU) 
WRITE (3,4) (,1=1, | 
4 FORMAT ( *, 11X, “9%, 7 (4X, 14)) 
DO 31=1,8 


3 WRITE (3, 5) 1, (MU, ], K),K=1,2, ]=1,8) 
5 FORMAT CI, 14, 4X, 82%, 211, 4X)) 
END 


2) Modificările făcute conduc la un program incorect, 
deoarece nu este permisă specificarea de dimensiuni varia- 
bile într-o subrutină pentru variabile declarate cu COMMON. 

Dacă pe lîngă modificările indicate mai înlocuim a ţreia 
instrucțiune din subruțina MARY cu; 


DIMENSION K(19) 


264 


și a doua instrucțiune din subrutina ALG cu: 
INTEGER V(10), B 


atunci programul devine corect și în plus este echivalent 
cu cel inițial. 

3) Eliminăm instrucţiunile 4 și 5 dih subrutină şi îhainte 
de instrucțiunea RETURN introducem instrucțiunile urmă- 
toare: 


= 1+ 
IF. EX. DIM) RETURN 
DO 7 J=1,NDIM 

7. K(NDIM — J+1D)=9 


4) Eliminăm instrucțiunile S, 13 şi 14, iat după itistril6- 
țiunea 9 punem următoarea instrucțiune: 
IF(Q. EQ. 0) RETURN 


PROGRAMUL NR. 7 


i) La începutul ptogtâimulii principal se pun instruc= 
țiunile: 


DIMENSION VEC (2) 
DATA BL/ '/, PLUS/'+| 


instrucțiunea a. 2l-a se înilotuiâștă tu iifinătoarea: 
7 FORMAT(X =", 14; 1X, 14,'4T  Y==";,H,1%, Mp Pj 
iar după ea, se pun instrucțiunile: 


VEC (1) = BL 
VEC (2) = BL 
IF(ICS. GE. 9) VEC (1).=: PLUS 
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IF(] JCS. GE. 0) VEC (2) = PLUS 
WRITE (3, 8) VEC (1), VEC (2) 
8 FORMAT ('+”, 7X, Al, 14%, Al) 


2) După instrucțiunea a, treia din programul principal 
se introduc instrucțiunile: 


WRITE (3,9) A,B,C 
9 FORMAT ( ',14,'*X-+, 4, 'Y =",14) 


PROGRAMUL NR. 8 


1) Memorarea lui A ca matrice necesită 4MN baiţi. În 
reprezentarea propusă, pentru fiecare element trebuie alocați 
8 baiți (4 pentru memorarea poziției elementului în matrice 
și 4 pentru memorarea. valorii lui). Pentru ca reprezentarea 
propusă să fie avantajoasă, este necesar ca 8K < 4MN, 
adică este necesar ca cel puţin jumătate dintre elementele 
matricei A să aibă valoarea . 

2) Instrucţiunile 8—14 din programul principal se înlo- 
cuiesc cu: 


WRITE (3,25) RJ 
25 FORMAT (' *, 5F9.2) 
CALL MAT (IM, Y, 8, L, RJ, 5) 
18 WRITE (3,26) RJ 
26 FORMAT ('--', 69X, 5F9. 2/'0') 
Folosirea caracterului + drept caracter de control în 
ultima instrucțiune face ca linia pe care a fost deja tipărită 


o linie a matricei reprezentată de perechea de vectori (ÎN, X) 
să fie reluată și pe ea să fie tipărită (începînd din coloana 61) 
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linia corespunzătoare din matricea reprezentată de pere- 
chea (IM, Y). | 

3) Nu, deoarece în cazul în care L este egal cu N, iar 
IP(M) este un multiplu de N, elementul Z(M) nu va fi înscris 
în vectorul RJ]; într-adevăr, restul împărțirii lui IP(M) 
prin N va fi O și deci va fi diferit de L = N; ca urmare, se 
va, trece la elementul următor din vectorul IP, fără ca vecto- 
rul RJ să fi suferit vreo modificare. 


4) În programul principal, instrucțiunea a treia se înlocu- 
iește cu: 
2 FORMAT (613, GF4. 2 / 813, 8F4. 2) 


iar conținutul celor două cartele de date va fi următorul: 


2012041 044 041051 96 
1011022024 935 31 043 042 05 


În subrutină, instrucţiunile 5— 12 se înlocuiesc cu instruc=- 

țiunile : 

DO 20 M=1,KIl 

] = IP(M) [199 

IF(J. NE. L) GOTO 20 

] = 1P(M) — 190+ 

RJ(]) = Z(M) 
20 CONTINUE 


PROGRAMUL NR. 9 


1) Înlocuirea propusă poate fi făcută deoarece nu toate 
variabilele care apar în expresia din dreapta semnului egal 
trebuie să fie cuprinse în lista de parametri; valoarea lui N 
este cunoscută în momentul folosirii referirilor la funcție, 
fiind transmisă subrutinei în momentul apelării ei. 
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2) Subrutina: cerută poate fi scrisă sub forma: 
SUBROUTINE POZ(K, N,I, ]) 
Ni =N 
J=1 
Kl=K 
1 IF(KI: LE. N1) GOTO 2 


Schema logică. apare în fig. 9.1(R). În această subrutină 
I şi J reptezinită respectiv numărul liniei şi coloanei căutate, 





ți: Bă. 8): Pige 92; (Aj. 
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3) Un mod de realizare al problemei propuse este urmă- 
torul: i 


FUNCTION URMA (X, NN, N) 
REAL X(NN) 

URMA = X(1) 

K=1 

NI=N-—1 

DO1I=1,N1 
K=KI+N—1+1 

URMA = URMA + X(K) 
RETURN 

END 


Schema logică apare în fig. 9.2.(R). 


ET) 


PROGRAMUL NR. 10 


1) Se poate întîmpla ca procesul de calcul să dureze foarte 
mult timp dacă rădăcina se află tot timpul între XI și -X2 
(calculul se termină cînd se obține zero de mașină pentru 
valoarea, funcției). În schema logică, după blocul de țestare 
pentru B2*X21, pe ramura > W trebuiesc intercalate blo- 
curile din fig. 10.1(R) iar în subprogramul RADC înainte 
de instrucțiunea a 4-a se pune:. 


11 1F(X2 — X1. LT. EPS) G0 ŢO 7 


iar instrucţiunea a 40-a apare fără marcă. 
2) Nu se poate folosi numai metoda coardei deoarece 
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3) Da, calculînd valorile funcţiei în X1 și X2 după ce 
eventual s-au permuțat acestea. În subprogram, instrucțiu= 
nii a 16-a i se pune marca 5 și aceasta împreună cu instruc- 
țiunea a 18-a se pun înainte de instrucţiunea 26 iar acesteia 
i se șterge marca 5. ” | 





Fig. 1.1.(R): 


PROGRAMUL NR. 11 


1) Înainte de instrucțiunea 26 se pun instrucţiunile: 


IF(UC(). EQ. 8) RETURN 
DO 91=3,NI1 | 
IFUC(NI — 1 + 3). NE. 9) RETURN 

9 IC(1) = IC) —1 


adică se controlează dacă există un coeficient diferit de 
începînd cu gradul cel mai mare. La primul coeficient diferit 
de ( ne reîntoarcem în programul principal. Pentru fiecare 
coeficient ( găsit, se micşorează gradul cu o unitate. Gradul 
nu poate ajunge mai mic decît (O deoarece sînt controlaţi 
numai coeficienții pînă la puterea întîi a lui X, 

2) În SUMP se poate obține rezultatul în polinomul de 
grad mai mare, dar aceasta presupune că se știe deja, care din 
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polinoamele IA, IB are grad mai mare. Se poate completa 
subprogramul SUMP așa încît să indice în care polinom a 
lost pus rezultatul. Acest lucru este folosit în subprogramul 
INMPP în care se știe că gradul lui IC este mai mare decît 
gradul lui ID. În INMPN se poate obține rezultatul tot în 
IA fără să se altereze rezultatul. În restul subprogramelor 
nu se pot obține rezultatele într-unul din polinoamele 
date ca parametri de intrare. 

3) În instrucţiunea a 5-a da, deoarece în urma executării 
instrucţiunii 3 IC(1) = IA(1), dar în general, după executarea 
instrucţiunii 5 IA(1) =£ IC(1), deci în instrucțiunea 6 nu 
se poate înlocui IA(1) cu IC(1). 

4) Înainte de instrucțiunea â 9-a se pune instrucțiunea: 


IF(UB(I + 1). EQ. 2) G0 TO 2 
5) Subrutina se poate scrie mai simplu în felul următor: 


SUBROUTINE DCN (|, J,.K) 
K1 = IABS(I) 
K2 — IABS(J) 
IF(KI. NE. % GOTO 1 
4 K = K2 
RETURN 
IF(K2. NE. 9) G0 TO 2 
1 


—— 
 — 


O 3 


RETURN 

2 K = KI — K1/ K2+ K2 
IF(K. EQ. 9) GO TO 4 
KI = K2 
K2 = K 
GO TO 2 
END 


] 

6) Mai întii se înmulțesc coeficienții polinomului cu puteri 
ale lui 19 pînă cînd toți devin numere întregi. Apoi se îm- 
part prin cel mai mare divizor comun al lor. Subprogra- 
mul este următorul: 
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SUBROUTINE INCO(A, IA, N) 
DIMENSION A(1), IA() 
IA() = N 


— 9 
ie», 
o . 
i 
> || 

| i 


IF(IA(I i i EQ. A(I)x K)Go TO 2 
K=Kul 
G0 TO 3 
2 CONTINUE 
IA(N + 3) = 
K=IA(Q . 
DO 4 1—2,N1 
4 CALL PCN (K, IA ( + 1), K) 
IF(K. EQ. 1) GOTO 5 


DOGI=1,NI 
6 IAA -+ 1) = IAU + D/K 
5 IA(N + 4) = 

RETURN 

END 


unde A reprezintă polinomul cu coeficienţii reali -scriși în 
ordinea crescătoare a puterilor, IA este vectorul unde se 
obţine rezultatul, iar N este gradul polinomului. 


PROGRAMUL: NR. 12 


1) Nu mai apar la imprimantă permutările. Subprogramul 
se execută atunci în mai puţin timp. Dacă această func- 
ţie este întrebuințată de mai mulţe ori, chiar trebuie să scoa- 
tem. aceste două instrucțiuni. 
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2) Lui A i se dau dimensiunile NXN iar lui IA îi alo- 
căm un număr mai mare de locaţii de memorie; deci instruc- 
iunea a doua din funcție ar putea avea de exemplu forma: 

DIMENSION A(N, N), IA(180) 

În ptograrmul principal trebuie ca A să aibă. chiar dimensiu- 
nea N (numărul. corespunzător). 

3) Subrutina este următoarea: 


SUBROUTINE PERM (A,N, K) 
DIMENSION IA(1) 
K2 = IA(1) 
DO 1 1=—2,K 
1 IA(U — 1) = IA() 
IA(K) = K2 
RETURN 
END 


4) Pînă se permută o dată circular ultimele N—1 elemente, 
toate elementele trebuiesc permutate circular de N ori (pen- 
tru ca 1 să ajungă din nou pe primul loc); peiitru a se muta 
o dată circular ultimele N — 2 elemente trebuiesc permu- 
tate de N — 1 ori ultimele N—1 elemente și deci trebuiesc 
permutate circular de N(N — 1) ori toate cele N elemente 
și așa mai departe, pentru a permuta o dată circular ulti- 
mele 2 elemente se permută. circular de trei ori ultimele trei 
elemente, deci de 4* 3 ori ultimele 4 eleriiente î- deci de 


că numărul total de Dmitri ale celor N elemente tra a 
ajunge din nou la permutarea identică este N! 

Mai trebiiie să demonstrăm că. permutările obținute sînt 
distincte. Două permutări care se pot obține uha din: alta 
prin permutarea tuturor elementelor sînt distincte deoarece 
îl conțin pe 1 pe locuri distincte. Dacă ar exista două per- 
mutări egale atunci, permutînd circular de un număr de 
ori toate cele N elemente ajungem la coricluziă că ar exista 
și două permutări egale care au pe 1 pe primul loc. Aceasta 
ne permite să demonstrăm că permutările cu 1 pe priimul 
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loc sînt distincte. Urmînd același raționament, putem să ne 
mărginim a arăta că permutările care au | și 2 „pe primele 
două locuri sînt distincte și așa mai departe pînă se ajunge 
a se demonstra că permutarea identică s-a obținut o singură 
dată; dar acest lucru este evident deoarece condiția de oprire 
a algoritmului era tocmai obținerea din nou a permutării 
identice pe care nu o mai luam în consideraţie. 


PROGRAMUL NR. 13 


1) Nu, deoarece elementele matricii POLI sînt înscrise 
pe cartele în ordinea liniilor, iar instrucțiunea propusă ar 
realiza citirea lor în matrice în ordinea coloanelor. 


2) Să presupunem că cei trei exponenți apar pe primele 
trei coloane, iar coeficientul apare pe următoarele trei pozi- 
ţii de pe cartelă. Atunci instrucţiunile. 3—6 se vor înlocui cu: 


DO 33 1=1,15 
33 READ (1, 34) (POLI (|, ], ]J= 1,3), CB) 
34 FORMAT (311,F3.1) 


sau cu instrucțiunile: 
READ (1, 35) ((POLI(I,]),] = 1, 3), CB(I), 1 = 1, 15) 
35 FORMAT (311,F3.1) 
3) Subrutina cerută poate fi scrisă sub forma următoare: 


SUBROUTINE VW(POLI, C,S, W,M,N) 
INTEGER POLI(M, N), C(M), S(N) 


W = 9 

DO 1K=1,M 
WW = C(K) 

DO2L=1,N 
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2 WW = WW + S(L) + + POLI (K, L) 
1 W = W + WW 

RETURN 

END 


În această subrutină, POLI(K,L) reprezintă exponentul 
variabilei L în monomul K al polinomului, iar C(L) repre- 
zintă coeficientul monomului cu numărul de ordine L. 

4) Se elimină instrucțiunile 28 și 31, iar instrucțiunea 
29 se înlocuiește prin 


WRITE (3, 14) ((DERIV(, ]), J=1, 3), DER (|, 1=1,15) 


PROGRAMUL NR. 14 


1) Între instrucțiunile 6 și 7 și între instrucțiunile 23 
și 24 din programul principal introducem instrucțiunea: 


IF(Y.EQ.9) GOTO 8 
iar imediat după instrucțiunea STOP scriem instrucțiunile: 


8 WRITE (3, 44) 
44 FORMAT ('VECTORII SINT LINIAR DEPENDENTI) 
STOP 


2) Înlocuirea nu este indicată deoarece are ca urmare 
calcularea repetată a rădăcinii pătrate a lui Y. Aceasta 
constituie un mod neeconomic de lucru din punct de vedere 
al timpului, de aceea este indicată folosirea unei instrucțiuni 
suplimentare, așa cum am făcut în programul inițial. 

3) Nu, deoarece în acest fel funcția ia numai valori întregi 
și aceasta înseamnă că la fiecare executare a instrucţiunii 5 
se face trunchierea părții fracționare; rezultatul va diferi, 
evident, de cel corect, Pentru a obține rezultatul dorit este 
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necesar ca odată cu sehimbarea numelui funcției să intro- 
ducem în plus declararea: 


REAL LL 


atît în programul principal cît și în subprogram. 
4) Plasînd cei 5 vecțori care trebuie ortonormați pe 
coloane, obținem o matrice A cu 7 linii și- 5 coloane. 
Pentru a transmite coloana K a matricei A “funcției, este 
suficient să folosim ca parametru elementul A(1, K). 
Programul modificat va arăta astiel: 


REAL A (7, 5), P(4). 
READ (1, 3) A 
3 FORMAT (7 (F4.2, 1X)) 
= PROD(A(, 1), AC, 1), 7) 
— SQRT(Y) 
DO 21=1,7 
2 ACI, D) = AC, 1) /Y 
DO 4 K=—2,5 
DO61l=1l, Ki 
6 P(I) = PROD (AC, K), A (1, 7) 
DO 91=1,7 
DO9 j=1, Ki 
9 AC, K)= AC, K) — P(J)*AG, ]) 
Y = PROD (A(,K), A(1,K,) 7) 
= SORT (Y) 
50 12 1= 1,7 
12 AC, K) = AU, K)/Y 
4 CONTINUE 
WRITE (3, 43) A 
43 FORMAT (' ', 7.(E12.5, 3X)) 
STOP 
END 


Datele de intrare 'vor fi scrise corespunzător cu noul 
format. 
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PROGRAMUL NR. 15 


1) Nu. În cazul cînd se lucrează cu caractere, trebuie să 
se lucreze cu același tip de văriabile și cum variabila LINIE 
este de tip întreg, trebuie ca şi celelalte variabile să fie de 
tip întreg. Altfel, din trecerea valorii unei variabile de un 
tip într-o variabilă de alt tip, în general, nu se mai păstrează 
codificarea caracterului de care avem nevoie, putînd apare 
chiar codurile unor caractere care nu sînt recunosciite de 
calculator și în acest caz apar la imprimantă prin tipărire 
spaţii libere. 


2) Ne bazăm pe faptul că dacă un cod format numeric 
conține un număr mai mic de spaţii decît cel necesitat de 
scrierea la imprimantă a numărului corespunzător, la impri- 
mantă apar un număr de steluțe egal cu numărul diri codul 
FORMAT; Deci pentru a rezolva problema, vom da lui 
1JK o valoare întreagă cu un număr mai mare de cifre și o 
voni sctie cu codul Il, respectiv 12, 13 etc. Deoarece cel 
mai mare număr căre poate fi memâtat într-o variabilă 
întreagă este 231 — 1 cate are 10 cifre, se pot tipări cel mult 
nouă steluțe. 


3) Instrucţiunile 1]—]4 se pot înlocui cu următoarele: 


LINIE(J) = 1S 
IF(L.EQ.66) LINIE (]) = 1Z 


PROGRAMUL NR. 16 


1) În subprogramul ORNM mai trebuie folosit un: vector 
IL (ale cășiii componente pot ocupă și numai cîte doi baâiți) 
dle M componente. La începutul subprogramului, elementele 
Jui sînt umplute cu numerele de la 1 la M în ordine; De cîte 
ori se mută dâtiă nume,între ele, se mută și compotientele 
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corespunzătoare ale vectorului IL. Deci prima instrucțiune 
a subprogramului se schimbă cu instrucţiunea 


SUBROUTINE ORNMI(N,M,L,IL) 
după a doua instrucțiune se adâugă instrucţiunile 


INTEGER + 2 IL(M) 
DO1I=1,M 
11LD=1 


iar după instrucțiunea a 19-a se pun instrucțiunile 


K — IL(J) 


IL(]) = IL(I) 
IL(i) = K 


Pentru a putea să memorăm un număr mai mare 
sau mai mic de nume cu un număr mai mare sau mai 
mic de caractere, vom înlocui și a doua instrucțiune cu 
REAL N(L,M). 

.2) Să presupunem că avem M cuvinte dintr-o limbă în 
lista N1 și corespondentele lor în cealaltă limbă în lista N2. 
Pentru a putea să punem în corespondență și după ordo- 
narea. alfabetică a cuvintelor din cele două limbi, folosim 
vectorii IL] și IL2 de cîte M componente care memorează 
locurile pe care le ocupau cuvintele la început. 

Subprogramul care ordonează cuvintele celor două limbi 
este: 


SUBROUTINE ORD (NI, N2, M, L, ILI, 1L2) 
REAL NI (L, M), N2 (L, M) 

INTEGER + 2 ILL (M), IL2 (M) 

CALL ORNMI (NI, M, L, IL1) 

CALL ORNMI (N2; M, L, 1L2) 

RETURN 

END 


Am presupus că cel mai mare număr de litere pe care 
poate să îl aibă cuvintele în cele două limbi este 4* L. 

Subprogramul de căutarea unui cuvînt și găsirea cores- 
pondentului în cealaltă limbă este următorul: 
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SUBROUTINE TRAD (NI, N2, M, L, ILI, IL2, CVTI, 
CVT2, IND) 
REAL NI (L, M), N2 (L, M) CVTI (L), CVT? (L) 
INTEGER=+2 ILI (M), IL2 (M) 
IND = 1 
DO1I=1,M 
DO2K=1,L 
TF (NI (E ID — CVTI (K)) 3,2, 1 
2 CONTINUE 


IF (IL2 (J).NE.K) GO TO 4 
DO5K=I,L 

CVT2 (K) = N2 (K, ]) 
RETURN 

CONTINUE 

'IND = 2 

RETURN 

CONTINUE 

G0 T0 3 

END. 


Op A 


Pad 


Am presupus că în lista NI, cuvintele sînt în ordine alfa: 
betică. Se iau pe rînd cuvintele din lista NI și se compară cu 
cuvîntul CVTI. Dacă cuvîntul din lista N1 este înainte de 
cuvîntul CVTI în ordine alfabetică se ia un nou cuvînt din 
lista Nl și se continuă comparaţia. Dacă cele două cuvinte 
coincid, se caută corespondentul din lista N2 a cuvîntului 
din lista N1 cu ajutorul vectorilor IL1 și IL2, iar dacă cuvin- 
tul CVTI este înaintea cuvîntului din lista Nl în ordine 
alfabetică, rezultă că acest cuvînt nu se află în lista NI şi se 
face indicatorul IND egal cu 2. 

3) Programul principal care să folosească subprogramele 
descrise în exercițiile precedente: poate fi următorul: 


REAL NI (3, 190), N2 (3, 199), CVTI (3), CVT2 (3) 
INTEGER + 2 IL1 (190), IL2 (199) 
READ (1, l) M 
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1 FORMAT (15) 


DO21=1,M UI 
2 READ (1, 3) (NL (K, D, K-= 1,3), (N2(K,D,K=1,3) 
3 FORMAT (3A4, 8X, 344) . 


CALL ORD (NI, N2, M, L, ILI, IL2) îi 
9 READ (|, 4, END =19)1, (CVTI(K), K= 1, 3) 
4 FORMAT (11, 3A4) di 
_G0T0 (6,71 a 
6 CALL TRAD (NI, N2, M, L, ILI, IL2, CVTI, CVT2, IND) 
GO TO 8 
7 CALL TRAD (N2, NI, M, L, IL2, ILI, CVTI, CVT2, IND) 
8 GO TO (11, 12), IND SSI 
11 WRITE (3, 13) (CVTI (K), K = 1, 3), (CVI2 (K),K = 
* 1, 3) 
13 FORMAT (' *, ' CUVINTUL ', 3A4,' SE TRADUCE”, 3A4) 

GO T0 9 | 
12 WRITE (3, 14) (CVTI (K), K=— 1,3) i 
14 FORMAT ( ', 'CUVINTUL”, 3A4, 'NU A FOST GĂSIT 

* IN DICTIONAR”) 
__GOTO9 
19 STOP 

END 

După ce se citesc cele două liste, fiecare cuvînt din lista 
NI avînd cel mult 12 litere și fiind scris începînd din coloana 
întîi a cartelei perforate, împreună cu cuvîntul corespunzător 
din lista N2 avind tot 12 litere cel mult și fiind scris începînd 
diri coloana 21 a cârtelei, se citeşte pe rînd cite 0 cârtelă 
care în prima, coloână conţine valoarea 1 sau 2 după cum 
cuvintul trebuie să fie căutat în lista NI sau lista N2. În 
căzul cînd nu mai sînt de citit astfel de cartele, programul 
se opreşte. Este căutat corespondentul cuvîntului CVTI și 
se tipărește corespondentul lui, CVT? sau: se dă un mesaj 
că acest cuvînt nu a fost găsit în dicționar. 

4) O metodă mai rapidă de căutare în dicționar este prin 
înjumătățire, și anume, se compară cuvîntiil dat cu cuvîntul 
de la mijlocul dicționărului. Dacă sînt egale, se găsește cotes- 
pondentul acestui cuvînt. Dacă este înainte de acest cuvînt 
se caută în prima jumătate și în caz contrar. în a două jumă- 
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tate. Se ia din nou mijlocul pentru această parte aleasă și se 
procedează ca mai înainte. După un număr mic de pași, fie 
se găsește cuvîntul, fie se ajunge la o parte care conține numai 
două cuvinte şi cuvîntul dat nu este egal cu nici unul dintre 
acestea, în cazul în care cuvîntul nu se află în dicționar: 
Subprogramul corespunzător este următorul: 


SUBROUTINE TRADI (NI, N2, M, L, IL1, 112, CVTI, 
« CVT2, IND) 

REAL NI (L, M), N2 (L, M), CVTI (L), CVT2 (L) 

INTEGER + 2 IL1 (M), IL2 (M) 


IND =1 
Kl=i1 
K2 =M 


6 K = (IL K2)]2 


IF (NI (. i) cvri ())2, 1,3 
1 CONTINU 
9 K= LI 4) 
DO4J=1,M 
IF (L2 (J). NE.K) GO TO 4 
DO5K=1,L: 
5 CVT2 (K) = N2 (K, ]) 
RETURN 
4 CONTINUE 
8 IND =2 


IF (K1 + 1. LT. K2) G0 T06 

DO07 J=1,L 

IF (NI (], K2) — CVTI (K2))8,7,8 
7 CONTINUE 

K = K2 

G0 T09 

END 
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PROGRAMUL NR. 17 


1) Nu. Lipsa ei ar avea ca rezultat ordonarea. descrescă- 
toare a elementelor tuturor liniilor, ca urmare a executării 
subrutinei DESCR. 


2) Numai cu prima. În cazul celei de a doua instrucțiuni, 
după tipărirea primei linii, lista de formate nu se reia de la 
început, așa cum ar fi de dorit, ci de la a doua paranteză 
stîngă; lipsa formatului de control face ca din primul număr 
care va apare tipărit pe fiecare linie nouă să lipsească prima 
cifră, aceasta fiind interpretată drept caracter de control. 

3) Fie CD numele noii subrutine. Instrucţiunile 9—12 
din programul principal se vor înlocui cu instrucțiunile urmă- 
toare: 

K=-—l 

IF(.EQ.1/2+2) K=1 

CALL CD (V, 5, K) 


În subrutina CD prima instrucțiune va fi: 
SUBROUTINE CD (A, N, K) 


Urmează toate instrucțiunile subrutinei CRES cu excepția 
instrucţiunii a opta care se va înlocui cu instrucțiunea urmă- 
toare: 


IF((A (]) — A(D) + K.GT.9) 1=] 
4) Înainte de instrucțiunea: 
DO8L=1,N 
va fi plasată instrucțiunea următoare: 
IF (UI. EQ.K) GOTO 5 
În acest mod ciclul DO care urmează se va executa doar în 


eventualitatea că II=F K. 
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PROGRAMUL NR. 18 


1) Ultimele două cartele de date nu pot fi excluse, deoa- 
rece altfel este citită cartela de sfîrșit de date înainte de ter- 
minarea instrucţiunii de citire a vectorului T, ceea ce are ca 
urmare întreruperea programului. Adăugarea de cartele 
suplimentare după cele existente nu are nici o influență, 
pentru că după instrucțiunea 5 nu mai apare în program 
vreo instrucțiune de citire. / 

2) Cele două instrucțiuni de declarare pot fi înlocuite cu: 


INTEGER + 2 ALFAB(3I), T(399), T1(69), TEXT(399) 


deoarece cea mai mare valoare pe care pot s-o primească 
elementele vectorului TEXT este 30 + 299 + 31 < 215. Indi- 
ferent dacă această condiție este îndeplinită sau. nu, decla- 
rarea comună poate arăta astfel: 


INTEGER * 2 ALFAB (31), T(399), T1 (69), TEXT+ 4(399) 


Bineînţeles, formele propuse se referă la calculatoarele IBM 
360. ă 

3) În cazul prezentat, este permisă întoarcerea în ciclu, 
deoarece parametrii ciclului nu au suferit. nici o modificare. 
Instrucţiunea introdusă în program nu schimbă rezultatele, 
elementele vectorului ALFAB fiind diferite. între ele; în 
schimb se mărește timpul de lucru, ceea ce face ca adăugarea 
instrucţiunii menţionate să nu fie indicată. 

4) Deoarece toate rîndurile poeziei au mai puțin de 69 
de caractere, un mod de realizare a scopului propus este 
înlocuirea instrucțiunilor 21—27 cu instrucţiunile: 


I=1 
11 D0 4 J=1, 68 | 

L = TEXT (1) — TEXT (1) /31*31+1 

141 

IF (. EQ. 301) GOTO 12 

IF (L. NE.39) GOTO 4 

TI (J) = ALFAB (31) 
12 L=y+1 
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19 — Programe în limbajul FORTRAN 


DO 5 K= J1, 69 

5 TI (10 = = ALFAB (31) 
GOT 

4 TI ( » = | ALFAB (LD) 

1 WRITE (3, 8) TI 

8 FORMAT (' /, GOA2) 
IF (. NE.391) GOTO 11 
SȚOP 


Schema logică corespunzătoare se află scrisă în fig. 18.(R), 


"PI(K)=ALFAB(31) 





Fig. 18. (R) 
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PROGRAMUL NR. 19 


1) Se memorează câte patru soluţii într-un vector dă 32 
de componente .IB și, cîrid acesta este complet umplut, se 
tipăresc toate cele patru soluții în același timp. 

În programiil priticipal, ptima instrucțiune, se înlotuiește 
cu: - 

DIMENSION IA(8), 1B(32) 
iar în locul instrucţiunii 17 se pun următoarele instrucțiuni: 

Li =L—(L—I1)/4Ax4 

L2 —8*+ (Li — 1) 

D09i=i,s8 


9 IB(L2 ij = |A 
tări Ea AD TĂBLA (B, L) 


iar subprogramul TABLA se înlocuiește cu următorul: 


SUBROUTINE TABLA (IB, L) 
DIMENSION IB (32), LINIE (32) 
DATA ÎBL, IX /'-,'X'|/ 


LI=L-—3 
L2—L-—2 
L3=—L-—l 


WRITE (3, 1) Li, L2,L3,L a 
1 FORMAT (0, 4 (SOLUTIA NR. *, 13, 19%); :, 132 (+9) 

DO 3 ]=1,8 

DO 2 1=—1, 32 
2 LINIE (Î) = IBL 

DO 51=1, 32,8 
5 LINIE UB -I—D+1—D=1X 
3 WRITE (3, 4) (LINIE (1), =, 39) 
4 FORMAT (' ”, 4 (+, 8(3X, ” =) +7, d (a, 8%, AL, 
s'a) [1 40, 8 (3%, *) 132 (re )) 

RETURN 

END 

585 
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Observaţie: În soluția. de mai sus am ţinut seama că numă- 
rul soluțiilor este multiplu de 4; dacă numărul soluțiilor nu 
ar fi multiplu de 4, s-ar pierde ultimele N — [N /4) + 4 soluţii, 
unde N este numărul total de soluții. 

2) Instrucţiunea a 18-a se înlocuiește cu instrucțiunea 

STOP 

3) Făcînd ca IA (1) să ia valori numai pînă la 4 nu mai 
obținem soluțiile simetrice față de axa verticală (deci numă- 
rul soluțiilor și al timpului de calcul se reduce la jumătate). 
În programul principal instrucțiunea 7 se înlocuiește cu: 


-1F (UA (1). GT.4) STOP 


Punînd condiția ca IA (8) să fie mai mare decît IA (1), 
nu se mai obţin soluțiile simetrice față de axa orizontală 
(numărul soluţiilor scrise la imprimantă se reduce la jumă- 
tate, însă numărul calculelor efectuate crește puțin). Pentru 
a pune condiţia de mai sus, după instrucțiunea 15 se adaugă 
instrucțiunea: 


2 IF (IA (8). LE.IA (1) )GOTO 6 


iar în instrucțiunea 16 nu mai apare marca 2. 


PROGRAMUL NR. 20 


1) Da. Nia numai valorile 3, 5, 7 și 9 deoarece 11 îl depă- 
șește pe 10. 

2) Deoarece ridicarea la putere ia mai mult timp decit o 
înmulţire, este mai bine să scriem N+ N în loc de N++2; 
în plus, această operaţie este făcută la fiecare reluare a ciclu- 
rilor și de aceea este mai bine să punem după a doua instruc- 
țiune a subprogramului instrucțiunea 


NI =N*N 
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iar a 1l-a instrucțiune o înlocuim cu 
IF (K.GT.NI) RETURN 


3) Are același efect, oprirea execuţiei programului. 


PROGRAMUL NR. 21 


1) Se înlocuiește a 63-a instrucțiune din program prin 
următoarea secvenţă de instrucţiuni: 


480 IF (M2 — 2) 10, 20, 7 
7 IF (M2 — 4) 30,.40, 8 
8 IF (M2 — 6) 50, 60,9 
9 IF (M2 — 8) 70, 80, 88 


2) M2 dă poziţia prin care s-a, ajuns dintr-un element în 
altul 
3) În loc de instrucțiunile 69—71 se pune STOP. 


PROGRAMUL NR. 22 


1) Înainte de prima instrucțiune din programul principal 
se pune instrucțiunea: 


X=—Ll 
iar instrucțiunea a doua se înlocuiește cu instrucțiunea: 


X=X+ 8.1 
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2) Instrucţiunea FORMÂT trebiiie să fie: 
5 FORMAT ( EXP (, F4.], ”) — d F8.5) 


3) Schema logică este arătată în fig. 22(R). În cazul 
cînd X este pozitiv, pentru evaluarea erorii s-a ținut seama 
de următoarele inegalităţi: e2% < 32% < 3IzI+1, 

Subprogramul funcţie corespunzător este următorul: 


FUNCTION EXPX (X, EPS) | 
XI=X 

EPS1 — EPS 

IF -(X:LE.9) GO TO 1 


X1=X 
EPS1=EPS 








XI1==X. 
M=2*X+1 


EP51=8P51/5M 
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XI =—X 
M=2=*X+1 
EPSI — EPS1 /3++:M 
1 EXPX = 1.9 
N=1 
YI = 1.0 
3 YI —YI+X1/N 
EXPX = EXPX + Yl | 
IF (YI.LT.EPSI.AND.Y1.GT. — EPSI) GO TO 2 
N=N+I1 
GO0T03 
2 IF (X.GE.8) EXPX = 1.0 | EXPX 
RETURN 
END 


4) Da, deoarece în momentul executării X1 are valoa- 
rea X. 


PROGRAMUL NR. 23 


1) Instrucţiunea a două din funcția DET trebuie să fie: 
DIMENSION A(N, N) 


În programul principal, matricea, A trebuie să aibă un număr 
de N linii, unde N este numărul comunicat de programul 
principal funcţiei DET. 
2) Schema logică este arătată în figura 23.(R). 
Subprogramul funcție -corespunzător este următorul; 


PUNCTION DET (A, N) 
DIMENSION A(N, N) 


DET = 
NIi=N-—l 
DO 11=—1,NI1 


IF (ABS (A (, 1). GT.1.0E —20) G0T02 
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KI N 


X=A(J,K) 
A(I,K)=A(I,K) 
A(I,K)=-X 





| pia J=I+),I+2, cc. ,N 


| a 
zi 
* My 
X=A(IJ,I)/A(I,1) 

ET Iele eee | 
| 

| 

| 


A(I9,K)=A(I,K)- 
Xa (1 ,K) 


« 


DET=DET+A(I,1) 


DET=DET*A (NN) ] 
(RETURN) 


N=1+1 

DO 3 j=1,N 

IF (ABS (A (J, D).GT.1.0E — 29) GO TO 4 
3 CONTINUE 

DET = 9 


Do6 j-u, 
IF (ABS (A GJ, TD. LE.I. GE — 20) G0 T06 
X = AU,D/AUG,I 
DO7K=I,N 
ZAU, K)=A K)— X=+A(, K) 
6 CONTINUE 
1 DET = DET+A (|, 1) 
DET = DET+ A (N, N) 
RETURN 
END 


În acest subprogram, de fiecare dată cînd ar trebui să 
testăm dacă un element este 0, de fapt testăm dacă valoarea 
absolută a, acestui element este mai mică decît 19-22. 

3) Sau |A(N, N)| < 10-22 în momentul execuţiei instruc- 
țiunilor din ciclu pentru | = N, şi atunci se ajunge la DET = 0, 
sau |A(N, N)|> 19-22 și atunci se ajunge la instrucțiunea 
27 unde ÎI] ia valoarea N + 1; ciclul care urmează se execută 
o dată, deoarece Il este mai mare decît N, iar în instrucți- 
unea 29 se caută elementul A(N + 1, N) care nu face parte 
din tabelul A și atunci, fie obținem un rezultat eronat, fie 
programul este oprit automat din cauza depășirii ariei de 
memorare. 

4) Se introduce o variabilă IJKL căreia, la început îi dăm 
valoarea 1 și îi schimbăm semnul de cîte ori se schimbă între 
ele două linii sau două coloane. Înainte de a ne reîntoarce în 
programul care cheamă înmulțim valoarea lui DET cu vari- 
abila 1JKL. 


291 


În subprogramul funcție, după instrucțiunile 4, 17 şi 22 
se introduc respecțiv instrucțiunile: 
IJKL = 1 
IJKL = —I1JKL 
IJKL — —IJKL 
iar instrucţiunile 21, 26 şi 35 se înlocuiesc tespectiv cu instruc- 
țiunile: 
5 A (JI, K)=X 
6 A(J,Kl)=X 
DET = BET+ A (N, N)+1JKL 


PROGRAMUL NR. 24 


1) Acest lucru este făcut în instrucțiunile 15 și 18. În 
urma, executării acestor instrucțiuni, elementul de pe diago- 
nală devine egal cu 1. 

2) Pentru a putea rhuta şi coloânele, trebiiie să folosirii 
un vector L, care să memoreze permutaârea, coloarielor. Sub- 
programul transformat este următorul: 

SUBROUTINE SISL (A, B, X, N, +, +) 

DIMENSION A (15, 10), B (10), X(U0),L(10) 


i L(I)=I1 
Ni=N-—I 
DO 3 i=], NI 
Il =!] 
jil=l 


DO 20 2-1, N. 
DO 20 J=1,N 
IF (ABS (ACI, JI). GE, ABS (A(I2, ]2))) G0 To 28 
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1 = J2 
29 IONTINUE 
IF (A (1, ]1).EQ.0) REŢURN 2 
IF UL.EQ.ID) GO TO 16 
CALL INTERV (A, B, |, IL, N) 
16 IF (JL.EQ.D GO TO 15 
P=LQ) 
L() = L(JI) 
L (JD = J2 
DO 17/K=1,N 
Y=A(K,D 
A (K, D=A(K, J]) 
17 A (K, JD)=Y 
15 Y=A(,D 
DO5J=I,N 
SAG J)=AGJ)/Y 
B(1)=B(/Y 
II =I1—+1 
DOG J=1,N 
IF (AC, D.EQ.A) 60 TO 6 
Y=AU,D 
DO 8K=I,N 
8A (J, K)=A(, YA K) 
B ()) = B (0) —B(0)+Y 
6 CONTINUE 
3 CONTINUE 
IF (A (N, N).EQ.0) RETURN 2 
X (L (N)) = B RAU | A(N, N) 
DO 191=1, 
Y_BA_D 
„DOILK=1,l 
ll Y=Y—A(N-—I, N—1+-K)xX (UN—1-+K)) 
18 XLN—D)=Y 
REŢURN 1 
END 
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PROGRAMUL NR. 25 


1) Cel de-al patrulea X apare din cauza parcurgerii 
formatului pînă se întilnește unul din codurile I,F,D,E, 
G,Z, A sau L iar lista din instrucțiunea de scriere cores- 
punzătoare a fost epuizată. Se poate evita aceasta ștergînd 
numărul 10 din fața celei de-a doua paranteze stîngi din 
instrucțiunea a 17-a din programul principal. După ce s-a 
scris un rînd, pentru scrierea rîndului următor se reia par- 
curgerea formatului de la această paranteză numai atîta timp 
cît lista nu a fost terminată. Același lucru se poate obține și 
înlocuind instrucțiunile 16 și 17 din programul principal cu 
următoarele instrucțiuni: 


WRITE (3,4) 
4 FORMAT (9%, SOLUȚIA ESTE”) 
DO 9 I=1N 
9 WRITE (3,5) 1,X() 
5 FORMAT (19X, 'X', 12, =, E14.7) 


2) Afirmația nu este adevărată. De exemplu sistemul: 


X+yYy+zZ=2 
XT+y+z=3 
Ox + 0y4+ 0z=0 


este incompatibil deși A — 9 și A, = 9 (amîndoi determi- 
nanții au cîte o linie de zerouri). 

3) Dacă A = atunci se poate calcula fie rangul matri- 
cei coeficienţilor și al matricei extinse și, conform teoremei 
Kronecker-Capelli, dacă rangul este același sistemul este 
compatibil nedeterminat iar dacă rangul este diferit sistemul 
este incompatibil, ne interesează numai cazul cînd sistemul 
este compatibil unic determinat. 

În acest din urmă caz programul se modifică în felul urmă- 
tor: în locul instrucțiunilor 19—26 din programul principal 
se pun instrucțiunile: 
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3 WRITE (3,14) | 
14 FORMAT (0 SISTEMUL ESTE INCOMPATIBIL 
*SAU COMPATIBIL NEDETERMINAT”) 


4) În loc de a verifica condiția A = 0 se verifică de 
exemplu condiția |A| < 1-3. În acest fel, instrucțiunea, 
12 se înlocuiește cu: IF(ABS(D). LE.1.0E—25) G0T0 3 
lar instrucțiunea 21 se înlocuiește cu: 


IF(ABS(D1.)LE.1.0E—25) 60 TO 12 


PROGRAMUL NR. 26 


1) Nu. Este de ajuns să fie făcută O numai linia | sau 
coloana | în afară de elementul Bl (1, ]) care este făcut 1. 

2) Nu. Este necesar ca elementele lui B să fie păstrate 
pînă la shrșitul subprogramului pentru a restabili unele 
elemente ale matricei Bl. 

3) Se știe că dacă scriem sistemul linear sub formă ma- 
triceală 

AX = B 


iar matricea A este inversabilă, soluția sistemului este dată 
de formula: 


X = AB 


Deci avînd matricea A, se calculează inversa ei (dacă există) 
și se înmulțește la dreapta cu B, rezultatul fiind soluția siste- 
mului. Programul este următorul: 


DIMENSION A (19, 19), C (19, 19), BU9); X(19) 
READ (1,1) N 

1 FORMAT (13) 
DO21=1,N 
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2 READ (1, 3) (A (, ]), ]J=1, N), B(D 
3 FORMAT (16F5.2) 
CALL INVMAT (A,N,C) 
IF (C(N + 1,1). EQ.0) G0-Ţ0 15 
CALL PRMAT (C,B,X,N,N,L) 
WRITE (3,4) 
4 FORMAT (9, “SOLUTIA SISTEMULUI ESTE:') 
DO 51=i, N | 
5 WRITE (36) 1, X (1) 
6 FORMAT ( X (,12,) =", E125) 
STOP 
15 WRITE (3,7) 
7 FORMAT ('OSISTEMUL ESTE INCOMPATIBIL 
* SAU NEDETERMINAT”) 
STOP 
END 


În acest program, A este matricea coeficienţilor, B este 
coloana termenilor liberi, € este matricea inversă a matricei 
A, X conţine soluția, sistemului i iar N este pumărul de ecuații 
ȘI "de necunoscute ale şistemului. A fost folosit subprogramul 
PRMAT de înmulțire a două matrice, prezentat în inţro- 
ducere. 


PROGRAMUL NR. 27 


1) Subprogramul modificat arată în felul următor; 


SUBROUTINE INVMAT (B,N,A,M, L1, IND) 
DIMENSION A(M, 1), B(M, 1), LI (1) 


N2=N-A+N 

DOL1I=1,N 
DO2 J=I1,N 
A(LJ) = BI, J) 


296 


2 AL, J+N) = 
1 Lii)=i1 
IF(A (1,1). NE.0) G0 TO 7 
K=—I|l 
16K=K+1 
IF(K.LE.N) GO To 15 
IND = 5 
RETURN 


15 IF(A(,K). EQ.9) GO TO 16 
Le Li 4) 
LI() = LI(K) 


-- 
A(K,N + J)= AUIN-+ JJ) 
AUN-+ J)=R 
R = A(J,K 


9 AK) = A(L,K)/X 


019 K=I1,N 
IF(K. EQ.I) G0 TO 19 
X = A(K,I) 


IF(X.EQ.9) G0 TO 10 
DO 11 j=1, N2 
11 AK, ]) = AG) — AU, J) 


18 C€ ONTINU 
50 19 1 = se) N 
DOi2 J=1,N 
12 ALI (0) — AU, +8) 
RETUR 
END 


iar programul principal este următorul: 
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DIMENSION A(19, 20), B (10, 10), Ll (10) 
DATA B,N/1.,—3.,8+9.,2.,0.,1.,7+0.,1.,2.,1.,77% 
* 0.,3| 
CALL INVMAT (B,N,A, 10, LI, IND) 
IF (IND.EQ.0) GOTO 15 - 
DO21=1,N 
2 WRITE (3,3) (A(,)),] = 1, N) 
3 FORMAT ('',10F8.5) 
STOP 
15 WRITE (3,18) 
18 FORMAT (' MATRICEA NU ESTE INVERSABILA”) 
STOP 
END 


PROGRAMUL NR. 28 


1) Legea este peste tot definită dacă 1 <a a; S< n pentru 
orice i, j = 1,2,...,„n. Subprogramul corespunzător este: 
LOGICAL FUNCTION PTD (IA,N) 
DIMENSION IA (19, 19) 
PTD = .FALSE. 


DO1I=1,N 

DO1J=Ii,N 

IFUAG, y LT.1. OR. IA (1,]). GT.N) RETURN 
1 CONTINU 

PTD = TRUE. 

RETURN 

END 


La terminarea executării subprogramului, PTD are va- 
Jloarea adevăr dacă legea este peste tot definită și fals în caz 
contrar. Apelarea ei se poate face de exemplu prin IF(PTD 
(A,N)) după care urmează o instrucțiune care indică ce tre- 
buie făcut în cazul în care legea este peste tot definită. 

2) Pentru a vedea: dacă două legi determină o structură 
de corp trebuie să verificăm -că este inel unitar și orice ele- 
ment diferit de elementul neutru al primei legi de compoziție 
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are invers în raport cu a doua lege de compoziţie. Pentru 
a verifica aceasta cu ajutorul subprogramului INVERS, 
trebuie să trecem ca parametru formal și LI care reprezintă 
elementul neutru al altei legi iar după instrucțiunea a treia 
a subprogramului trebuie adăugată instrucțiunea 


IF(.EQ.L1) GO TO 1 
În subprogramul GRUP, instrucțiunea a 9-a trebuie înlocuită 


1 CALL INVERS (N,A,E,K,9) 


și E trecut ca parametru formal iar în programul principal 
trebuie făcute următoarele modificări: în instrucțiunile a 
9-a și a 1-a se adaugă ca parametri formali IEA și respectiv 
IEB care vor conține elementele neutre pentru cele două 
legi de compoziţie; instrucțiunile 52 și 59 se înlocuiesc cu 
GO TO 25 iar instrucțiunea 71 se înlocuiește cu GO TO 36 și 
înainte de instrucțiunea 78 (penultima) se introduc instruc- 
țiunile: 


26 CALL INVERS(N,A,IEA,K,IEB) 
IF(K.EQ.0) GO TO 27 
WRITE(3,240) 
240 FORMAT (” LEGILE B ȘI A DAU 0 STRUCTURA 
* DE CORP”) 
STOP 
27 WRITE (3, 250) 
250 FORMAT (' LEGILE B ȘI A NU DAU 0 STRULC- 
* TURA DE CORP) 
STOP | 
25 CALL INVERS (N,B,IEB,K,IEA) 
F (K.EQ.09)G0 TO 28 
WRITE (3,2609) 
268 FORMAT (' LEGILE A ŞI B DAU 0 STRUCTURA 
* DE CORP”) 
i STOP 
28 WRITE (3,270) 
2710 FORMAT (' LEGILE A ȘI B NU DAU 0 STRUC- 
* TURA DE CORP”) 
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8) Pentru a vedea dacă o matrige este simetrică este te 
âjuitis să luăm elementele de deasupra diagonalei priricipale 
și să vedem dacă elementele simetrice lor sînt &gale cu ele. 
Deci instrucțiunile a 3-a, și a. 4-a din . subprogramul COMUT 
se înlocuiesc cu 


NI =N-—]1 
DO 1 I=—1,N1 
ii=|+i 


DO 1 j=—Il,N 

4) Pentru subprogramul NEUTRU se pot scrie instruc= 
țiunile: 

IF (UA U Î) 3, 

a1F (A Ub) ii 
iar i sibprogtarusl INVERS instrucțiunile: 


L—-AG, 26,2 
6 IF E (UA j o 


PROGRAMUL NR. 29 


1) Răspunsul la prima întrebare este afirmativ pentru 
că în cazul nostru matricea A are elementele egale. sau cu 
G sau cu 1. Pentru o matrice oarecare însă, noua testare 
iii este echivalântă cu cea inițială. 

2) Este suficient să facem testările peritru. K< J<I, 
Funcţia TRANZ se poate scrie astfel: 


FUNCTION TRÂNZ (A,N) 
INTEGER A (N,N) 


DO 2 1-38, N 
Il —1—] 
DO2 J=2,1 
p=]-1 
DO 2 K=—1|, 


p 
IF(A(,]).EQ.0) GOTO 2 
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IF(A(J,K).EQ.0)GOTO 2 
IF(A(,K).EQ.1) GOTO 2 
TRANZ =. 
RETURN 
2 CONȚINUE 
TRANZ = 1 
RETURN 
END 


3) Instrucţiunea 8 din forma inițială a funcţiei TRANZ 
poate fi înlocuită cu următoarele două instrucțiuni (așa cum 
am făcut în răspunsul la exercițiul precedent): 


IF(A(,]).EQ.9) GOTO 4 
IF(A(J,K).E9.9) GOTO 4 


În acest mod, a doua condiţie este verificată numai dacă 
A(,)) =. 

4) Instrucţiunea 4 poate fi înlocuită numai cu prima 
dintre instrucțiunile propuse. În cazul celei de a doua instruc- 
țiuni, constanta 10 este o constantă reală și deci va fi me- 
morată sub forma lexazecimală normalizată; la apelarea 
subrutinei, cîmpul din memoţie iezervât ' consțantei va fi 
copiat în cîmpul din memorie rezervat parametrului N; 
orice referire făcută la variabila N în subrutină va face ca 
această variabilă să fie considerată. 'ca'avînd valoarea rezul- 
tată prin interpretarea conținutului: ariei de rnemorie rezer- 
vată ei ca fiind un întreg scris sub formă binară; evident 
rezultatul va fi diferit de numărul 1%. 


PROGRAMUL NR. 30 


Î) Ciclurile DO 38 1=1, N și DO 33 J=1, N se pot 
termina cu aceeași instrucțiune CONTINUE. Pentru a face cît 
mai puține modificări, se preferă scoaterea instrucţiunii cu 
numărul 3% și schimbarea mărcii în ciclul după, | punîndu-se 
33 în loc de 30. Se observă că nu se poate închide şi ciclul 
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după K tot la instrucţiunea cu marca 33 deoarece în a 3l-a 
instrucțiune care este exterioară ciclului după K se iace 
trimitere la marca 33 și dacă și ciclul după K s-ar închide 
tot acolo, s-ar lua o nouă valoare pentru K și nu pentru 
] cum ar trebui. 

2) Se scot instrucţiunile 5, 6, 14, 15, 26, 27 şi 44 iar 
instrucțiunile 1, 12, 16, 24, 28, 41 și 43 se înlocuiesc res- 
pectiv cu instrucțiunile următoare: 


SUBROUTINE TEST (A,C,NUME, N, DI, D2, D3) 
GO TO si 
5l DO 21 1=1,N 
GO TO 52 
52 DO 30 1=1,N 
GO TO 53 
53 IF (.NOT. (DI. AND. D2. AND. D3)) RETURN 


3) În acest subprogram, instrucțiunile B = 1și B = 9 
urmate de RETURN pot fi scrise o singură dată iar B=-—1 
urmat de RETURN pot să lipsească deoarece nu se ajunge 
la ea. (există divizori ai unui număr mai mici sau egali decit 
el, unul fiind chiar numărul dat). În urma acestor modifi- 
cări obținem subprogramul următor: 


SUBROUTINE REL(A) 

INTEGER A(1), B 

RETURN 

ENTRY RELI(, ], B) 
 IFUNOT(L.EQ.1.ÂND.J.EQ.1)) GO TO 1 
12 B=1 

RETURN 

IF(I.EQ.1. -0R.J-EQ.1) GO TO 22 

K= 
IF (|.NE. ȚRg K) GO TO 3 
KI =K 


GO TO 4 

3 CONTINUE 

4D05K = 2,K1 
IF(J.NE.] | K+ K) GO T05 
IF (K.EQ.K1) GO TO 12 

2 B= 


Sr 
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RETURN 
5 CONTINUE 
ENTRY REL2 (1,J,B) 
AFC — Jl* D 2, 220 
“ENTRY 'REL3 (|,J,B 
IF(j — Jj5*5—1 ri 1/6 + 6) 22,12,22 
END 


4) În subprogramul REL, înainte de END se pun urmă- 
toarele instrucțiuni: 


ENTRY REL4 (1,J,B) 
K=9 


= 
| € 
i 
+ 


5 CONTINUE 
IF (K1.EQ.K) GOTO 3 
- 


În programul principal, instrucțiunea a, 4-a se înlocuiește 


cu: 
EXTERNAL RELI, REL2, REL3, REL4 
în locul instrucţiunii 7 CONTINUE se pun instrucțiunile: 


7 CALL REFLX (RELA4, N, T1) 

CALL SIM(RELA4, N, T3) 

CALL TRANZ (RELA, N, 17) 

„CALL SCRIE (Ti, T3, 17, M, &2, &18) 
18 CALL CLASA (REL4, N) 

GO T0 2 


iar pe cartela de date de pe care se citește MI'se pune 4 în loc 
de 3 
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PROGRAMUL NR. 31 


1) După instrucțiunea 

K=l 

scriem instrucțiunea 

KI =1 

Instrucţiunea 

V() =K 

se înlocuiește cu instrucțiunea, 

V(J)=Kl 

După instrucțiunea 
ua  K= VU) 

introducem instrucțiunea 

KlI=KI-l 

2) Schema logică apare în fig. 31.1(R). Funcţia F are 
următoarea formă: 


FUNCTION F (NI, N2, V, A,N) 
INTEGER A (NN), V(N) 


DOLI=I1,N 
IFOV(I). NE. ND GOTO 1 
DO2 = 


IF(V(D.NE. 2) GOTO 2 
IF (A (AC, ]). EQ.0) GOTO-2 


RETURN 
CONTINUE 
CONTINUE 
F=9% 
RETURN 
END 


3) Subprogramul pe care îl construim constă din urmă- 
toarele: se determină numărul K de clase de echivalență; 


Li 5e) 
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pentru fiecare pereche (1,]) de clase, se calculează funcția 
F și rezultatul este înscris pe linia 1 și coloana ] a matricei 
A; apoi elementele din primele K linii și coloane ale matricii 
A sînt copiate în elementele corespunzătoare ale matricei 
B. Schema logică apare în fig. 31.2.(R). 


Subrutina are următoarea formă: 


SUBROUTINE DRD (B,Â,V,N) 
INTEGER A (N;N), B(N,N), V(N) 
K=1 
DO 11 
IFV().G 
1 CONTINU 


1, N 
T.K) K = VU) 


a 





+ p mii 





| 








Fig. 31.2; (R) 
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Această subrutină poate fi chemată din programul prin- 
cipal cu ajutorul instrucţiunii următoare: 


CALL ORD (M,M1,N,19) 


cu condiția ca în programul principal să declarăm pe MI ca o 
matrice cu 10 linii și coloane, avînd elemente întregi. 

4) Se poate impune ca J] să parcurgă numai valorile 
K,K-1,...,N deoarece elementele cu numere de ordine mai 
mici decît K au fost deja cuprinse în clase de echivalență. 
La fel, este suficient ca LI să ia valorile K,K+1,...,N. 


PROGRAMUL NR. 32 


1) Nu este nici o deosebire, deoarece o instrucțiune de 
intrare | ieşire este încheiată în momentul în care lista de 
date este epuizată; formatele care apar în continuare sînt 
ignorate. 

2) Instrucţiunea citată poate fi înlocuită numai cu primul 
grup de instrucțiuni. Al doilea grup de instrucțiuni atașează 
elementelor vectorilor PERMUT și VECTOR atributul REAL, 
ceea ce face ca să nu existe concordanță între atributele argu- 
mentelor cu care este apelată subrutina și cele ale parame- 
trilor corespunzători din subrutină; acest lucru conduce la 
rezultate eronate datorită modurilor diferite de memorare ale 
valorilor întregi și reale. 

3) Subrutina căutată este următoarea: 


SUBROUTINE CL(J,N,K) » 
INTEGER (N) 

8 FORMAT ("CLASA LUI, 12, ESTE URMATOAREA”) 
WRITE (3, 8) K 
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L = JK) 
DO 11=I1,N | 
IF (JU). EQ.L) WRITE (3,2) 1 
2 FORMAT ('',12) 
1 CONTINUE 
RETURN 
END 
4) Instrucţiunile 7—19 pot fi înlocuite cu instrucțiunile: 
5 DO 2 M — 1, 2147483647 
L = PERMUT (L) 
IF(L—K) 2,4,2 
2 VECTOR (L)=K 
Numărul indicat ca limită superioară pentru variabila ciclu- 
lui este cel mai mâre număr întreg care se poate memora ca 
atare în calculator și deci ieșirea din ciclu va fi realizată 
înainte ca M să primească. această valoare (putem presupune 
că N < 2%1—1]). 


PROGRAMUL NR. 33 


1) Instrucţiunile 15—18 din subrutina PR pot fi înlocuite 
cu: 

M(1) =9 

DOG K—=-2,N 

1 = MK—I)-+J 

6 M(K) = I—I/N+N 
deoarece, începînd cu a treia poziție, elementul unei linii a 
tabelei este suma dintre elementul de pe poziția anterioară 
și primul element al liniei. 
2) În subrutina PR, prima. instrucțiune se înlocuiește cu: 
SUBROUTINE PR(N,X,M,L) 


Vrem ca pentru L — 9 să fie tipărită tabela de adunare, iar 
pentru L — 1 să fie tipărită tabela de înmulțire. 
Instrucţiunea 17 din subprogramul PR se înlocuieşte cu: 
=] K 
IF(L.EQ. 1) il=J+*K 
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sau cu: 


= UD] + K+ La pK 
În programul principal instrucţiunile 5 şi 6 vor fi înlocuite 
cu: 


CALL PR(N,X,M,0) 

CALL PR(N,X,M,1) 

3) Funcţia dorită poate fi construită în modul urmățor: 

FUNCTION L(1,N) 

DO1 J=1,N 

K=—1l+J] 

K=K—K/N+N 

IF(K.NE.1) GOTO 1 
= K 

RETURN 

CONTINUE 

L= 9 

RETURN 

END 


Fie J, K două numere naturale. Notăm I = min (J, K) 
și N = max (], K). Atunci pentru a verifica dacă J și K sînt 
prime între ele este suficient să calculăm L(I, N). Aceasta, 
se poate realiza cu următoarele instrucțiuni: 


IF (J.NE.K) GOTO 1 
2 WRITE (3, 3) 
3 FORMAT ( NUMERELE NU SINT PRIME INTRE ELE!) 
STOP 
1 IF (J.GT.K) GOTO 4 
N=K 


Pad 


5 IF (L(I, N).EQ.9) GOTO 2 
WRITE (3, 6) 

6 FORMAT (' NUMERELE SINT PRIME INTRE ELE) 
STOP | 
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În cele de mai sus am folosit faptul că; 1 este inversabil în 
inelul Z, dacă și numai dacă | și N sînt prime între ele. 

4) Subrutina DLIN calculează pentru două .numere 
întregi A și B valorile M și N cu proprietatea că (A, B) = 
=M+*A+N+B. 

Elementul 1 este inversabil în Zy dacă și numai dacă 
este prim cu N. Dacă această condiție este verificată, 
subrutina DLIN ne furnizedză întregii J și K tu proprie- 
tatea că 1 = J+* 1-+K + N. Rezultă că inversul lui. E este J, 
deoarece clasa de echivalență a lui 0 îl conține Pie N; :] este 
apoi înlocuit cu o valoare cuprinsă între. și N—a1, 
aparținînd aceleiași clase de echivalență. 

Instrucţiunile 7—13 din subrutina INV se pot înlocui :cu: 


CALL DLIN (, N, J, K) 
IEI + J + Ni K.EQ.1) GOTO 5 
MA) = 
GOTO - 
5 IF (J.LT.0) GOTO 8 
MU = J—JIN=N 
GOTO 1 
6 J=J-I+N 
IF (J.LT.0) GoTo 6 
M(I) = J 


PROGRAMUL NR. 34 


1) Da, deoarece reducerea afectează numai căeticienții 
lui gi, 2, ..., 6. 

2) Înstrucţitihea 3-a este echivalentă cu itistrucțitinea; 
71 FORMAT (4 >, ', 25 Ci, 2%X)]), *', ai, 2X)) 

3) Dacă A este vectorul care conţine coe: icienții. polino- 
miilui cdie trebilie rediis, N este cu o unitate imâi mare decit 
gradul acestui polinom iar P indică corpul în care: lucrăm, 
atunci subrutina căutată se poate scrie sub urntătoăred 
formă: 
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SUBROUTINE REDUC (A, N, P) 
INTEGER P, Pl, A (N) 


PI=P-—I 
NI=N-—1 
DO 21=P,NI 


j=1—1/Pl+P1 
IF (J.NE.0) GOTO 3 
A(N — P1) = A(N—P1)+A(N-—I) 


GOTO 2 
3 A(N — J) = AN — J)+AN-—I) 
2 CONTINUE 

PL =N-— PI 


DO8I=—PI,NI 
8 A (D=A(D-A(D/P+*P 
RETURN 
END 
În programul principal, instrucțiunile 6—14 vor fi. înlo- 
cuite cu: 
CALL REDUC (A, 101, 7) 
4) Subrutina va avea următoarea formă: 
SUBROUTINE DER (B, P) 
INTEGER B (P), P 


K=P-—l 

DO 11=2,P 

BO) B(-—D+K 
1K=K-—l 

B(l)=6. 

DO 21=1,P 

2 B (D= B() — B()/P+P 
END. 


În programul principal se fac următoarele modificări: 
a) se adaugă instrucțiunea de declarare: 
INTEGER B (7) 
b) între instrucțiunile 18 și 19 se introduc instrucțiunile: 
DO 22 1= 1,7 

22 B (1) = A (I + 94) 

29 CALL DER (B, 7) 
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nstrucțiunile 25 și 26 se înlocuiesc cu: 
B 


O 66 K=—3,7 

66 M=— M=+ Il + A(K) 
IF(M — M/T) 75, 76, 75 

75 WRITE (3, 17) 1 

17 FORMAT (), n, 3%, "RADACINA SIMPLA? 
GOTO 15 

76 WRITE (3, 77) 11 

77 FORMAT ( *, Il, 3X, 'RADACINA DUBLA”) 


c) in 
M = 
D 


PROGRAMUL NR. 35 


1) Subrutina ADUN poate fi scrisă sub următoarea formă 
echivalentă: 


SUBROUTINE ADUN (P, N, IND) 
INTEGER P(N) 

IND = 6% 

DO 21=—1|,N 

IF (P (1).EQ.1) GOTO 2 

P(l)=1 

RETURN 

2 P()=9 

IND =] 

RETURN 
- END 

2) 

a) Imediat după instrucțiunea 3 a programului principal 

introducem instrucțiunea: 


IF (N1.GT.N) STOP 


b) Între instrucțiunile 12 şi 13 plasăm instrucțiunile: 
IF (K.NE.9) GOTO 3 
K=l 
TI (1)=1 
care permit verificarea în continuare a existenţei unei puteri 
a lui 2 cuprinsă între NI și N. 


sii 


3) Trebuie introdiis parâmâtru suplimentar M. Siubru- 
tina va avea forma: 


SUBROUTINE ADUNM (P, N, IND, M) 
INTEGER P (N) 


IND = 9 
DO 21=—1|;N 
IF (P().EQ.M) GOTO 2 
P(=P(D+I 
RETURN 
2 P(D=98 
IND —1 
RETURN 
END 


PROGRAMUL NR. 36 


1) Instrucţiunea 10 se poate înlocui cu:: 
IF (NORMA.NE.NORMA /1+ 1) GOT0 3 


2) Înainte de a da rezolvarea exerciţiului propus, observăm 
că înmulțirea | * ] din instrucțiunea 17 se face pentru fiecare 
valoare a lui K, deși nu depinde de K. Ținînd seama și de 
această observaţie, o rezolvare constă din înlocuirea inisttuc- 
ţiunilor 15—17 cu: 


= 
DO 32 Kl = 1, MP 
K=—KlI-—l 


IF (JJ + Ko K — 1) 32, 38, 31 


din atașarea numărului de instrucțiune 33 instrucţiunii 18 
și din intercalarea instrucţiunii 


32 CONTINUE 


între instrucțiunile 3% și 31. 
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3) Instrucţiunea 26 se înlocuiește cu instrucțiunile: 


IF (L) 11, 19, 19 
11: WRITE (3, 14) J,L 
14 FORMAT ( UN DIVIZOR = ',12,1X,13,'*1) 
GOTO 15 
19 WRITE (3, 12) J,L 
iar instrucţiunii 28 i se atașează. numărul de instrucțiune 15. 


O modificare analoagă se poate face și pențru instrucțiunile 
S9—04. 


PROGRAMUL NR, 37 


1) Grupul de instrucțiuni indicat poate fi înlocuit cu 
următoarele trei instrucțiuni: 

M2 = Y | 

IF (Y.LT.0) M2—M2-—l1 

IF (2» Y —2+* K — 1.GE.0) M2=—M2+1 


Evident, o înlocuire analoagă se poate face şi pentru 
grupul de instrucțiuni 13—29. 


2) Nu, deoarece dacă efectuăm modificările propuşe în 
calculul lui N2 variabila M2 va participa cu noua sa. valoare, 
ceea ce denaturează rezultatul. 


83) Instrucţiunile 11 şi 12 pot fi înlocuite cu oricare dintre 
următoarele instrucţiuni: 

IF (K.NE.O.OR.L.NE.9) GOTO 7 

IF (K+K+L+L.GT.9) GOTO 7 

IF (K+K-+L+L)8,8,7 

IF (K+K+4+L+*L)7,8,7 
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PROGRAMUL NR. 38 


4 


iar 


1) Instrucţiunile 2 și 3 se înlocuiesc cu: 


DOI (R)=R-—R/M+M 
TREI (R)=R-—R/N+N 
READ (Î, 4)M,N 
FORMAT (212) 

MN = M=N 


în instrucțiunile 4, 6, 24, 28, 38 și 42 limita superioară 


a contoarelor trebuie moditicată din 6 în MN. 


2) Instrucţiunile 8 și 9 vor fi scrise imediat după instruc- 


țiunea 5, evitind astfel efectuarea lor pentru fiecare valoare 
a lui Jl. 
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3) Funcţia INJ va- avea următoarea formă: 


FUNCTION INJ (M, N) 
IMPLICIT INTEGER (A Z) 
MM (R)=R-—R/M=: 

NN (R)=R — R NAN. 


DO 2 JIA, MN 


IF (X.NE.U.OR.Y.NE.V) GOTO 2 
INJ = 9 
RETURN 

CONTINUE 

INJ =1 

RETURN 

END 


Instrucţiunile 24—38 din program vor fi înlocuite cu: 


IF (NJ (M, N).EQ.1) GOTO 9 
WRITE (3, 6 


6 FORMAT (-F NU ESTE INJECTIVA *) 


STOP 


9DO 311=1,6 


mm 


4) Funcţia SURJ poate fi scrisă în modul următor: 
FUNCTION SURJ (M, N) 
IMPLICIT INTEGER (A — Z) 
MM(R)=R-—R/M*M 


MN =—M+N 

DO 111=1,M 
I=—I11-—1 

DO 1 ji=I1,N 
J=Ji—1 

DO 2 Ki —1, MN 
K=—Kl-—l 


IF (MM (K).EQ.I.AND.NN (K).EQ.]) GOTO 1 
CONTINUE 

SUR] = 8 

RETURN 

CONTINUE 

SURJ= 

RETURN 

END 


Funcţia constă în generarea tuturor perechilor (I, ]) e Zu x 
X Zn şi în verificarea existenței pentru fiecare astfel de pere= 
che a unui element KE Zmn cu proprietatea că f(K)=(1,]). 


PROGRAMUL NR. 39 


A Păstrarea perechii (9, 9%) nu schimbă rezultatele 
deoarece ea este eliminată imediat ce unul dintre elementele 


4 sau ay devine egal cu (0, 0) 


21 — Programe în limbajul FORTRAN 


2) O primă îmbunătăţire constă în evitarea efectuării 
produsului A = A în instrucțiunea 9 pentru fiecare valoare 
a lui Bl; realizăm acest lucru prin scrierea instrucţiunii: 


A2 = A+A 


imediat înaintea instrucţiunii 6 și prin înlocuirea instrucţiunii 
9 cu: 


P = A2+3+*+B+B 


O a doua îmbunătăţire se realizează prin înlocuirea 
instrucțiunilor 11—13 cu: 


NR=NR+I 
TAB (NR, )=A 
TAB (NR, 2) = B 


evitînd astfel efectuarea de adunări în. cadrul instrucțiunilor 
11—12. 
3) În forma inițială, programul determină numai ele- 


mentele ireductibile 4 + di /3 cu a > 9. Pentru ca la impri- 
mantă să apară tipărite și elementele ireductibile cua<f 
este suficient ca între instrucțiunile 31 şi 82 să plasăm urmă- 
toarele instrucțiuni: 


IF (TAB (, 1). NE.0) WRITE (3, 5) TAB (, 1), TAB(, 2) 
5 FORMAT (' *, 6X, '—”, 11, 12X, 12) 


4) Ținînd cont că a€eț, 1,..., 9, putem marca faptul 


că un element a+bi /3este ireductibil prin modificarea 

valorii lui a în a + 199. În calcule vom folosi ca parte reală 

a acestui element valoarea a (dacă a < 100) sau a — 1900 

(dacă a > 1090). Modificările care trebuie făcute în program 

sînt următoarele: | 

a) din instrucțiunea 2 se șterge declararea referitoare la 
vectorul V, | 

b) instrucțiunile 15 și 16 sînt eliminate. 

c) instrucțiunile 19 și 20 se înlocuiesc cu: 


G = TAB (I, 1) 
IF (G.GE.190) G= G-— 199 
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H = TAB (], 1) 

IF (H.GE.199)H = H — 190 

Q = G+H —3+ TAB (, 2)+ TAB AUR 2) 
R= G+ TAB (J, 2)+ TAB (, 2)*H 


d) instrucţiunile 23 şi 24 se înlocuiesc cu: 


F = TAB (K, 1) 

IF (F.GE.100) F=F-—199 

IF (Q.NE.F.OR.R.NE.TAB (K, 2)) GOTO 13 
IF (F.LE.%) TAB (K, )=F-+10 


€) instrucțiunea 29 se. înlocuiește cu: 
IF (TAB (, 1) .GT.99) GOTO 7 


PROGRAMUL NR. 40 


1) Observăm că în aceeași clasă cu 6 + 5 se găsesc ele: 
mentele —6 — 5, —5 + 67, 5 — G care se obțin din înmul- 
țirea lui 6 + 5: respectiv cu unitățile —1, ș, —z. 

Dacă J < 9, atunci putem lua K=1+6şiL= Jr 
iar dâcă ] > 0, atunci luăm K=1-+5 și L=J-—. 
Elementul K: + zL astfel construit satisface condițiile cerute, 

2) Este evident faptul că elementele G, 1, 2, ..., 60 sa 
găsesc în clase de echivalență diferite. De aceea este suficient 
ca pentru fiecare dintre aceste elemente 'să aplicăm teorema 
împărțirii întregi pentru a găsi un element din aceeași clasă, 
avînd însă norma mai mică decît 61; în acest scop folosim 
subrutina DIV din programul nr. 37. Elementele O, 1,...,7 
au chiar ele norma mai mică decît 61 şi deci ele pot fi copiate 
direct în matricea EL. 

Instrucţiunile 4—23 vor fi înlocuite cu următoarele 
instrucțiuni: 


DO11=1,8 

EL(,D=1—1 
1EL(U,2%=9 

DO21=9,61 


na, i 
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CALL DIV (—1, 9,6,5, M, N) 
EL (U, 1)=M 
2 EL (|, 2)=N 
WRITE (3, 19) ((EL Sb I, J=1,2),1=1, 61) 
19 FORMAT (33, '+, I2, ') 
3) În loc de st uiunea a doua scriem instrucțiunile; 
READ (1,7 L,; M 
7 FORMAT (213) | | 
IF (RED (L, M).EQ.1) WRITE (3, 88) 
Instrucţiunea 7 se înlocuiește cu: 
X=M=+*M-+L+L 
MN = SQRT (X)-+l 
DO 13 13—1, MN 
iar instrucțiunile 9 și 10 se înlocuiesc cu: 
MM —2*MN-+I1 
DO 13 J3—1, MM 
] = J3 — MN 
O ultimă modificare în programul principal constă în 
înlocuirea instrucţiunii 15 cu: 


IN = INA (1, 12, L, M) 


În funcția INA primele trei instrucțiuni. trebuie schim- 
pate în: 

FUNCTION INA K, JL, D 

SN=—IxI1+L=:L 

X = (La K+ 1+])/SN 

Y =(L+]—1+K)/SN 


PROGRAMUL NR. 41 


1) Înlocuim primele două instrucțiuni din: subrutina 
INT cu: 

SUBROUTINE INT (A, B, C, D, N) 

INTEGER A(N), B(N), C(N), D(N) 
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În programul principal introducem un nou vector S cu 
4 componente, completînd corespunzător instrucțiunea 1. 
Toate instrucțiunile de chemare a subrutinei INT vor fi 
modificate prin inserarea între al treilea și al patrulea argu- 
ment a identificatorului $. De exemplu instrucțiunea 24 va; 
trebui scrisă astfel: 


CĂLL INT (Y, Z, W, S, 4) 


2) Modificarea indicată nu este corectă deoarece produsul 
permutărilor nu este comutativ; deci din f(af) = f(a) f(8) 
nu rezultă că f(fa) = f(6) f(a) și ca urmare verificările care 
se efectuează nu sînt suficiente pentru a decide dacă apli- 
cația f este sau nu omomorfism. 

3) În acest caz modificarea este corectă și chiar indicată 
pentru că evită efectuarea de calcule inutile; într-adevăr 
f(a) = f(B) dacă şi numai dacă f(f) = f(a) şi deci dacă a fost 
analizată perechea de permutări (a, 6), este inutilă considera- 
rea perechii (Ș, «) 

4) Instrucţiunile 21—23 se elimină. Instrucţiunile 24—27 
devin: 


CALL INT (Y, P(, a 
CALL INT (Y, Pl )V 

CALL PROD (W, V, U, 4) 

CALL PROD (P (, Da P G, ], U1, 4) 


PROGRAMUL NR. 42 


1) Problema se rezolvă în felul următor: elementele 
pozitive se trec în una din stive iar cele negative în cealaltă; 
apoi se scot elementele din stiva cu elemente pozitive şi se 
trec în vector începînd cu primul element, se trec elementele 
din stiva cu elemente negative în cealaltă stivă pentru a le 
mai inversa încă o dată ordinea și apoi se trec în continuare 
în vector, La depunere nu mai verificăm pe IND deoarece 
sîntem siguri că nu poate apare depășire. Programul este 
următorul: 
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DIMENSION A (299), B (2989) 
READ (|, 1) N 
1 FORMAT (13) 
READ (1, 2) (B(,1=1,N) 
2 FORMAT (19F8.3) 
WRITE (3, 3) 
3 FORMAT (' VECTORUL INITIAL ESTE' ///) 
WRITE (3, 4) (BD,1=1,N) + 
4 FORMAT ('”, 10 (F8. 3, 3 X)) 
CALL SSTIVI (A, N, NI, N2) 
DO 51=1,N 
IF (B ()) 6, 5, 7 
6 CALL SSTIV (A, N, NI, N2, 2, 1, B (ID, IND) 
GO 10 5 
7 CALL SSTIV (A, N, NI; N2, 1, 1,:B (1), IND) 
5 CONTINUE 
NII=N ; 
DO 81=1,NIl 
8 CALL SSTIV.(A, N, NI, N2, 1, 2, B (1), IND) 
N21 = N2 
DO 91=1,N21 
CALL SSTIV (A, N, NI, N2, 2, 2, R, IND) 
9 CALL SSTIV (A, N, NI, N2, 1, 1. R, IND) 
DO 10 1=1,N2. 
18 CALL SSTIV (A, N, Ni, N2, 1, 2, B(N11 + D, IND) 
N21 = N21 + NIL 
WRITE (3, 11) 
11 FORMAT (9 VECTORUL TRANSFORMAT ESTE! ///) 
WRITE (3, 4) (B(D, 1=1, N21) 


END 


PROGRAMUL NR. 43 


1) în componenta corespunzătoare din vectorul. ajutător, 
vom pune adresa elementului precedent din stiva căreia, îi 
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aparține elementul respectiv. Elementele care hu fac parte: 
din nici o stivă, spunem că fac parte din stiva liberă. Adresa 
corespunzătoare primului element din stivă este % iar adresa 
ultimului element este păstrată în vectorul IV. Subprogra- 
mul corespunzător este: 


SUBROUTINE STIVSI (A, IA, IV, N, M) 


DIMENSION A (M), IA (M), IV (N) 
NI=N+I1 


pa i 
mad 
> 
AM 
R 
| 
IP N 


ENTRY STIVS (J; KB, IND) 
G0T0 83,4), 
3 K1 = IV (NI) 
IF (KI.NE.9) G0 TO 5 
IND =, 
RETURN 
5 A (KD)=B 
IV (NI) = 1A (KI) 
IA (KI) =1V 0) / 
IV (D)=Kl ! 
7 IND =3 
RETURN 
A K1=1VQ) | 
IF (KL.NE:9) G0 TO 8 
IND =2 
“RETURN 
6 B=A (KI) 
 W (D=I1A(KD 
IA (XD = 1V (NI) 
IV (NI) = K1 
GO TO 7 
END 
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PROGRAMUL NR. 44 


1) Înlocuirea propusă nu se poate face, pentru că un 
ciclu DO nu se poate încheia printr-o instrucțiune de tip 
IF. Problema obţinerii acelorași rezultate este în aceste con- 
diții lipsită de sens. 


2) Programul nu se poate opri. niciodată prin instrucți- 
unea 33, deoarece construcția liniei euleriene se termină 
doar cînd toate elementele matricei A sînt egale cu, caz în 
care programul este oprit prin executarea instrucţiunii 22 
(ar corespunde cazului cînd graful este neconex, caz pe care 
l-am exclus). 


3) Să modificăm graful prin introducerea unei ramuri 
suplimentare care să lege vîrfurile I și J. Dacă graful obținut 
admite o linie euleriană, atunci pentru a rezolva problema, 
este suficient ca trasarea liniei euleriene să înceapă din vîrful 
], iar prima ramură să fie cea nou introdusă; odată linia eule- 
riană determinată, eliminăm ramura suplimentară și obținem 
drumul căutat. De aici rezultă că în graful inițial trebuie 
îndeplinită condiția ca singurele virfuri cu grade locale 
impare să fie xtrfurile 1 și ] (pentru cazul cînd vîriurile 1 și 
J sînt deja legate, vezi şi exercițiul următor). 


__ Printr-o renumerotare a vîrfurilor, putem considera că 
]=—1 și 1 = 2. Programul rămîne același, dar în matricea 
A vom pune A (1, 2) =] și A (2, 1) =1. 


4) Instrucţiunea 6 din funcția | trebuie înlocuită cu in- 
strucțiunea.: 


S=S+A(J, K) 


Instrucţiunile 13 și 14 din programul principal vor fi 
înlocuite cu: 


5 A(K,L)=A(K,L)—1 
A (L, D=A(K,L) 


322 


PROGRAMUL NR. 45 


1) Răspunsul este afirmativ, pentru că la ieșirea forțată 
dintr-un ciclu DO valoarea contorului rămîne valabilă și 
ește în continuare utilizabilă (lucru care nu se întîmplă însă 
la ieșirea normală dintr-un ciclu D0). 

2) Instrucţiunile 24—28 se pot înlocui cu instrucțiunile: 


I=N 
N = PROV (N) | 
IF (| — S(N)) 23, 22, 23 


3) Considerăm că numărul nodurilor din arbore nu depă- 
şește cifra 999. Atunci pentru fiecare nod | putem înlocui 
tripletul (S (1), PROV (1), D(1)) cu elementul SPD (1) dat 
de formula: 


SPD (1) = 10% S(1) + 10% PROV(D + D(D. 
Ca urmare, vectorii S, PROV, D vor fi înlocuiți de vectorul 


SPD, realizîndu-se. astfel economie de memorie: 
Se introduc următoarele trei subprograme funcţie: 


INTEGER FUNCTION D (1) 
D=1—1/1099*1988 
RETURN 

END 

INTEGER FUNCTIONS (1) 

S = 1/199908% 

RETURN 

END 

INTEGER PROV (1) 

M = 1/ 1989 

PROV = M — M/1909+* 1988 
RETURN 

END 


Programul va fi modificat în modul următor: 
INTEGER INF (12), SPD (12) 
READ (1, 2) (INF (1), SPD (D, 1 = 1, 12) 

2 FORMAT (13, 19) 
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WRITE (3, 5) 
5 E ORMAT (**, 18 ( x) ['*INF* S* D+PROV+ '/f, 
+18 (x 
WRITE (3, 9) (INF ); S (SPD (1)), D (SPD (D ), PROV 
*(SPD (D),l=!l, 12) 
19 FORMAT (+7, 13, 1, 19, 'x', 13, x", 13, '+*") 
„WRITE (3, 11) 
11 FORMAT ('',18(*5) 
DO 3 N=—1, 12 
IF (PROV (SPD (N) ).EQ.0) GO TO 7 
3 CONTINUE 
7 WRITE (3, 8) INF (N) 
8 FORMAT (3X, 13) 
IF (S (SPD (N)).EQ.0) GOTO 22 
= S (SPD (N)) 
GOTO $ 


22 IF (D (SPD (N)).EQ.0) GOTO 23 
N = D (SPD (N)) 
GOTO 7 a 
23 IF (eROV (SPD (N)). EQ.0) STOP 
N = PROV (SPD (N)) | 
IF ( — S(SPD (N)) 23, 22, 23 
END 


Prima cartelă de date va avea conţinutul: 
0019080003090 
iar conţinutul celorlalte cartele va fi modificat în mod analog. 
Mai facem observaţia că această variantă de program 
face economie de memorie, dar în schimb se.mărește timpul 
e lucru. 


PROGRAMUL NR. 46 
1) Subptogramul este “următorul: 
FUNCTION F(C, A, M,: N), . 
DIMENSION C(5, 19), A(L8, 19) 
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F=9% 
DO11=—1,M 
DO 1 j=|,N 

1 F=F-+AG, D*C(,]) 
RETURN | 
END 


2) Primele 33 de instrucțiuni rămîn aceleași iar în conti- 
nuare se pun instrucțiunile: i | 


DO 151=1,M Da 
15 WRITE (3, 16) (A,(, ]), J=1,N) 
16 FORMAT (' ', 109 (F 10.3, 3X)) 

Fl =F(C, A, M,N) 

WRITE (3, 17) FI 
17 FORMAT (0', 'F='",F10.3) 

IF (E (K, L).GE.0) STOP 

CALL SCBAZ (A, MM, M, N, K, L) 

GO TO 14 

END 


3) Metoda elementului minimal este asemănătoare meţo- 
dei unghiului de nord-vest ; deosebirea constă în faptul că nu:' 
se mai pleacă din colț ci se calculează elementul 4; pentru 
care c;; este minim. De fiecare dată cînd. se calculează un 
element al matricei A se dă o valoare mare elementul .cores-= 
punzător din matricea C. Se scade valoarea, lui a;; calculată 
din b; și d; și se completează cu ( linia ș sau coloana 7 după 
cum b, devine 8 sau nu. Se reia procedeul pînă cînd -au fost 
calculate toate elementele lui A. La început toate elementele 
lui A sînt făcute —1 pentru a şti la un moment dat dacă un 
element a fost calculat său nu. Ne folosim de asemenea. de 
matricea E în care se copiază C pentru a nu altera valorile 
elementelor din matricea C. Schema logică a subprogramului 
este dată în fig. 46 (R). Subprogramul este următorul: 

SUBROUTINE SOLBI (A, C, E, MM, B, D, M, N) 

DIMENSION A (19, 19), C€C (19, 19),E 19,19), 

MM (10, 19), B (19), D (19) 

DO 11=1,M 
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1 MM (i, J) = 

- NK,L) 

IF (E(K, L). Ed.28055) RETURN 
L 


MM (K, = 1 
IF (B (K).GT.D (L)) G0 T03 
A (, D=B(K 


B (K) — 
DO 4 J 
IF (A (K, 1 NE. — 1) G0 104 
A (K, )=98 
E (K, |) = 28988 
4 CONTIN 
GO TO 2 
3 A (K, D=D(L) 
E (K, L) 20009 
B (K) = 5 (5) — D (L) 
D (L) = 
DO 5 Zi, M 
IF (A (K,J).NE.— 1) G0 TO 5 
AG, D=9 
E, D=29098 
5 CONTINUE 
GO 10 2 
END 


50 picest subprogram poate fi folosit în locul subprogramului 


re IE, 2, caza] 
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DRE E ICRPPICR 
| 
I)=0(140) 


E(I 
(ro) 











K,L)=B(K) 
E (K,L)=29995 

D(:L)=D(L)-B(K) 
B(K)p 






A 


A(KU)=p 
2(£,99=27000__ 


— 908 soma qm 
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«Informatica restabilește nu nu- 
mai unitatea matematicilor pure 
și a celor aplicate, a tehnicii 
concrete și a  matematicilor 
abstracte, dar și cea a științelor 
naturii, ale omului și ale societă- 
ţii, reabilitează conceptele de 
abstract și de formal și impacă 
arta cu știința, nu numai în sufle- 
tul omului de știință, unde erau 
dintotdeauna împăcate, ci și în 
filozofarea asupra lor». 
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